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DOVE 210,343 


AL Ha 240 PRINT CHR$(164);" 1987 C PC M DZL 
P A-STRI P AG. & M.NIH®: : TAGOFF 

250 A$=STRING# (10, CHR#(143)):PEN 3: DYV 
FOR 1=2 TO 22:LOCATE 2, I:PRINT A$:N 
EXT 1 

260 MOVE 0,399:DRAV 192,399,3:DRAV NF 
192, 16, 3:DRAV 0,16,3:DRAN 0, 399,3 

| 270 MOVE 208,319:DRAV 639,319, 3:DRA DU] 
V 639,16,3:DRAV 208,16, 3:DRAU 208,3 








Alors, voilà. Alpha-strip est un jeu de lettres disons, 


19,3 
euh... spécial. Le but du jeu n’est pas très difficile à 280 MOVE 208,239:DRAV 639,239, 3:MOV >CD 
comprendre une fois l’écran apparu. En effet Alpha- E 208,191:DRAN 639, 191,3 

: d ’ 290 LOCATE 15,12:PRINT"TEMPS:* JW 
strip se propose de vous exercer les neurones avec un 300 RESTORE 1190:NC-92:COSUB 3000:R HT 
Jeu de lettres. ESTORE 3080:NC2=90:GOSUB 3230: TAGOF 
17e 259 F:CALL &BB4E 

C’est tout ?” hurlent ER pisor -—.’.. >RK | 310 LOCATE 15,12:PEN 3:PRINTTEMPS: PC 
chœur les lecteurs. Bon, il | 190 RESTORE 1090:NC-9:GO0SUB 3000  >AA| ":RESTORE 1040:NC=4:GOSUB 3000 





y a tout de même un plus 200 LOCATE 14,1:PRINT"ABG GHFFGGHF >1B | 320 TAG:PLOT 640,400,3:MO0VE 16,40:P NV 


à ; . AHEBHGHFGCHF" RINT'ABC:";:C=88:PLOT 640,400, 1 
que je vous laisse dé- 210 LOCATE 14,2:PRINT"ABG GHDABGHF UD | -330 FOR 1=1 TO 4:MOVE C,40:PRINT"@" )DY 
ouvrir C HB G GHBGGHD" ::C-C+24: MOVE C, G4:NEIT 
220 LOCATE 14,3:PRINT"FGGCG FGG F DRQ| 340 TAGOFF:CALL &BB4E:INX 1,16:INX >2D 
CI G G GGG" 2,0: INK 3,26:HAB=0:FOR T=1 TO 3000: 
230 CALL &BBAE:PLOT 640,400,3:TAG:M DNXÈ NET T 
10 VOHAENNNSSANEFENNENNNNENS >LA 
2°: : )LB 
30° # " ALPHA-STRIP" « >LC 
40 + 4 >LD 
50° # 4 1987 par HNIH # )LE 
60? « à )LF 
70'# pour CPC. # >LG 
80? # : >LH 
90 VORAMANNESENENENNINNENEE >LJ 
n° x ALPHA -STAIF 
ve” ie CETONEN EURE RSC 


100 MODE 1:DEFINT A-Z:BORDER O:FOR AZ 
1=0 TO 3:INK 1,0:NEXT 

110 LOCATE 1,25:PEN 2:PRINT"PATIENT >DHP 
EZ UN HOMENT...":INK 2,26 

120 KEY 139, "call &bbâe:border O:in >IN TEMPS : 


k 0,0:ink 1,26:mode 2"+CHR$(13) 

130 RESTORE 3300:DIM D(8),D$(8),MOT >YN Se EST CE MOT ? 
#(100), CI(25) :PER=0 

140 FOR 1=1 TO 100:READ MOTS(1):NEX >DA 

T 

150 DIM FQ(99),FQ2(99) :RESTORE 3390 >GZ 

:1=1 


160 READ F1:1F F1=0 THEN 170 ELSE R >DY 
EAD F2: FQCD=F1- -8:F02(1)=F2-9:1=1+1 


:G0TO 160 e à 
170 FQ(1)=0:SF=0 >LV 








350 ? 
360 IF PART=1 THEN 370 ELSE 380 
370 CC=16:LL=23:T$="PRESSEZ UNE TOU >HH 

CHE. ..":PEN 3:G0SUB 3270:CALL &BBO6 
:G0TO 420 

380 SD=1:CC=16:LL=16:T$="BONJOUR, J >NB 
E M'APPELLE*:PEN 3:G0SUB 3270 

390 CC=17:LL=18:T$="LOLA... PRESSEZ >DM 
UNE":PEN 3:G0SUB 3270 

400 CC=18:LL=20:T$="TOUCHE POUR JOU >VN 
ER*:GOSUB 3270 

410 CC=21:LL=22:T$="AVEC MOI...":G0 >YQ 
SUB 3270:CALL &BB06 

420 GOSUB 520:CC=16:LL=21:T$="VEUX- >PF 
TU DE LA MUSIQUE" :GOSUB 3270:CC:17: 
LL=23:T$="POUR T'ENCOURAGER ?* :GOSU 

B 3270 

430 K$=UPPERS$(INKEYS$):IF K$=""THEN >DD 
430 ELSE IF K$="O"THEN SD=0 ELSE IF 
K$="N"THEN SD=1:D1 ELSE 430 


44Q ? "RJ 
450 HAB=HAB+1 >LK 
460 RANDOMIZE TIME:CALL LBB4E W 


470 1F PER=2 THEN GOSUB 520:CC-17:L >AQ 
L=21:PEN 3:T$="NE DESESPEREZ PAS !* 
:GOSUB 3270:CC=19:LL=23:T$="CA VA V 
ENIR...*:GOSUB 3270:FOR T=2 TO 1000 
:NEXT 

480 IF PER=3 THEN GOSUB 520:CC=14:L >QP 
L=21:PEN 3:T$="SI JE NE VOUS PLAIS 
PAS®:G0SUB 3270:CC=18:LL=23:T$="FAU 

T LE DIRE !...":GO0SUB 3270:FOR T=1 

TO 2000:NEXT 

490 1F SD-0 THEN EVERY 15,3 GOSUB 3 >GK 
440:ET 

500 CT=39:T5=300:GOSUB 520 > 
510 FOR 1=21 TO 39:PEN 1:LOCATE 1,1 >MV 
2:PRINT CHR$(143) :NEXT:G0T0 530 

520 WINDOW#2,15,38,15,23:CLS#2:WIND >LN 
0W#3,15,38,7,9:CLS#3:RETURN 

530 SOL=0:TL=0:FOR 1=1 TO 25:CX(1)= >KG 
O:NEIT 

540 PEN 3:RESTORE 2950:CM=INT(RND#1 DFA 
00) +1: LON=LEN(HOTS$ (CH) ) 

550 RANDONIZE TIME >NZ 
560 CL=INT(RNDELON)+1:1F CX(CL)=1 T >KV 
HEN 550 

570 CX(CL)=1:READ CO,LI >RA 
580 LOCATE CO,LI:PRINT MID$(HOTS(CM >WG 
),CL, 1) :TL=TL+1 

590 IF TLCLON THEN 550 ELSE WINDOW >RB 
#1,16,39,17,17 

600 ? >RG 
610 CC=14:LL=15:T$="QUEL EST CE HOT | 





2*:G0SUB 3270:LOCATE 15,17:PRINT")> 





620 CLS#1:PEN 1:REP$="":CK=1:LK=1:L DYB 
OCATE#1,CK,LK:PRINT#1,CHRS (143) :KK= 
0 
630 GOSUB 760:K$=UPPERS(INKEYS):1F DUB 
K$=""THEN 630 ELSE IF K$=CHR$(13)TH 
EN 680 ELSE IF K$-CHR$(127)THEN 650 
ELSE IF K$=" "THEN 630 ELSE LOCATE 
#1,CK,LK:PRINT#1,K$+CHR$ (143) :REP$= 
REPS$+K$:CK=CK+1:KK=KK+1:G0T0 630 
640 K$=UPPER$(INKEYS$):1F K$=""THEN 
630 ELSE IF K$=CHR$(13)THEN 680 ELS 
E IF K$-CHR$(127)THEN 650 ELSE LOCA 
TE#1,CK,LK:PRINT#1,K$+CHR$ (143) :REP 
$=REP$+K$:CK=CK+1:KK=KK+1:G0T0 630 
650 CK=CK-1:1F CK<1 THEN CK=1 
660 1F KK<1 THEN KK=1 
670 LOCATE#1,CK,LK:PRINT#1,CHR$(143 
)+CHR$(32) :KK=KK-1:REP$=MID$(REP$, 1 
>KK):GOTO 630 
680 LOCATE#1,CK,LK:PRINT#1," 
690 IF REP$C)HOT$(CH)THEN LOCATE 15 
,19:PRINT SPACES(25):CC=14:LL=19:PE 
N 3:T$="REPONSE FAUSSE...":GOSUB 32 
70:G0T0 620 
700 LOCATE 15,19:PRINT SPACE$(25):C DJK 
C=14:LL=19:PEN 3:T$="BRAVO !":GOSUB 
3270:PER-0:S0L=1:G0T0 730 
710 ? 
720 IF HAB(1 THEN HAB=1:PER-PER+1 
730 ON HAB GOTO 810,820,830, 840,860 
, 900, 930, 960 
740 ? 
750 TS=TS-0.1:LOCATE 1,1:PEN 3:PRIN 
T TS:1F TS<=0 THEN 760-ELSE RETURN 
760 TS=TS-1:1F TS(>0 THEN RETURN EL 
SE CT=CT-1:1F CT=20 THEN 770 ELSE L 
OCATE CT,12:PEN 1:PAPER 3:PRINT CHR 
$(215)+CHR$(32) :PAPER O:PEN 3:T5=30 
0:RETURN 
770 LOCATE 21,12:PRINT CHR$(143):LO >QP 
CATE#1,CK,LK:PRINT#1,CHR#(32) :CC=14 
:LL=19:LOCATE CC+1,LL:PRINT SPACES( 
25):T$="TROP TARD...":PEN 3:G0SUB 3 
270:FOR T=1 TO S00:NEXT 
780 CC=14:LL=21:T$="LA REPONSE ETAI >VK 
T:":G0SUB 3270 
790 CC=14:LL=23:T$=MOTS (CM) :PEN 1:G DAV 
OSUB 3270:FO0R T=1 TO 3000:NEXT T:HA 
B=HAB-1:S0L=0:G0T0 720 


800 ? >RJ 
810 MOVE 160,40:G0T0 1010 TR 
820 MOVE 136,40:G0T0 1010 >TU 


830 HOVE 112,40:G0T0 1010 


À 


>TQ 


| 840 MOVE 88,40:G0T0 1010 >RK 
850 ! >TD 
860 IF SOL=0 THEN 880 ELSE CC=14:LL >NJ 
=21:T$="ATTENTION, CA COMMENCE A":P 
EN 1:GO0SUB 3270:CC=14:LL=23:T$="DEV 
ENIR INTERRESSANT...*:GOSUB 3270 
870 RESTORE 2160:NC-29:G0SUB 3010:R >YY 
ESTORE 3100:NC2-29:G0SUB 3230:G0T0 
450 ; 
880 LOCATE 15,19:PRINT SPACES(25):C >GV 
C=14:LL=19:T$="DOHMAGE. . .":PEN 1:G0 
SUB 3270:RESTORE 1290:NC=34:GO0SUB 3 
010:RESTORE 3100:NC2=29:GO0SUB 3230: 
GOTO 460 
890 ? 
900 1F SOL=1 THEN RESTORE 2470:NC=2 
8:GOSUB 3000:RESTORE 3130:NC2=28:G0 
SUB 3230:G0T0 450 
910 RESTORE 2400:NC-3:G0SUB 3010:RE 
STORE 1630:NC=25:GOSUB 5020 :RESTORE 
3130:NC2-28:GOSUB 3230:G0T0 460 
920 ? 
930 IF SOL-1 THEN RESTORE 2770:NC=1 
0:GOSUB 3010:RESTORE 3100:NC2=10:G0 
SUB 3230:G0T0 450 
940 RESTORE 2160:NC=10:G0SUB 3010:R 
ESTORE 3100:NC2-10:G0SUB 3230:GO0T0 
460 
950 ? 
960 GOSUB 520:CC-16:LL=15:T$="MES F 
ELICITATIONS !":GOSUB 3270:CC=18:LL 
=17:T$="TU AS REUSSI...":GOSUB 3270 
:CC=16:LL-19:T$="VOICI TA RECOMPENS 
E:*:GOSUB 3270:CC-=14:LL=21:PEN 1:T$ 
=*IL EST INTERDIT DE BAVER":GO0SUB 3 
270 
970 RESTORE 2880:NC-6:GO0SUB 3010:RE 
STORE 3170:NC2=6:G0SUB 3230:FOR T=1 
TO 10000:NEXT T 
980 CALL &BB4E:GOSUB 520:CC=16:LL=1 
6:T$="PARDON, MAIS J'AI PAS*:PEN 3: 
GOSUB 3270:CC=16:LL=18:T$="TRES ENV 
IE D'ATTRAPER":GOSUB 3270:CC=15:LL= 
20:T$="FROID... ALORS, ON FAIT" :G0S 
UB 3270:CC=17:LL=22:T$="UNE AUTRE P 
ARTIE ?*:GO0SUB 3270 
990 K$=UPPER$(INKEYS$):1F K$=""THEN 
990 ELSE IF K$="O"THEN PEN 2:LOCATE 
1,25:PRINT" EICUSE-MOI, JE M 
"HABILLE. ..":INK 3,0:INK 1,0:INK 2, 
26:G0SUB 520:PART=1:G0T0 300 ELSE C 
LS : END 
1000 )ID 
1010 IF SOL={ THEN TAG:PRINT" ";:TA DTF 
GOFF:G0T0 450 
1020 RESTORE 1040:NC=1:G0SUB 3000:T >1G 


>TH 
>UB 


V 


UL 





>TB 
>TV 


V 


EH 





>BD 


AG:PRINT"@";:TAGOFF:G0TO 460 ELSE 4 

60 

1030 ? )1G 
1040 DATA 64,66,EF,FF,FF,7E, 7C,38,1 >CU 
” DATA 65,C1,03,03,C3,C3,C3,FB,F >CP 
dé DATA 66,CC,EC,6C,6C,6C,6C,EF,C >DZ 
_ DATA 67,1C,3E,36,36,3E,36,B6,B >CF 
_ ? >TB 
1090 DATA 65,FF,FF,FF,FF,FO,FO0,F0,F >DD 
Hi DATA 66,FF,FF,FF,FF,0F,0F,0F,0 >DW 
à DATA 67,00,00,00,00,FF,FF,FF,F >CL 
5 DATA 68,F0,F0,F0,F0,00,00,00,0 >BB 
3 DATA 69,0F,0F,0F,0F,00,00,00,0 >BD 
7 DATA 70,F0,F0,F0,F0,F0,F0,F0,F >CH 
0 DATA 71,0F,0F,0F,0F,0F,0F,0F,0 >CK 
1 DATA 72,FF,FF,FF,FF,00,00,00,0 >CH 
4 DATA 73,0F,0F,0F,0F,FF,FF,FF,F >DB 
ii : >YC 
1190 DATA 33,00,00,00,00,03,07,0F,1 >BP 
Ti DATA 34,00,00,3F,FF,FF,FF,FD,F >CH 
0 DATA 35,00,00,80,C0,F0,F0,F0,F >BX 
La DATA 36,1F,3F,3F,3F,7F,7F,7F,7 CA 
is DATA 37,F0,E0,C0,DC,C0,C9,C1,C >CZ 
+ DATA 38,78,38,3C,FC,1C,5C,1C,1 >CK 
DATA 39,FF,FF,FF,FF,7F,3F,1F,0 >DY 
vs DATA 40,83,80,87,48,47,20,10,8 >BY 
_ DATA 41,1C,3C,3C,B8,38,70,C0,8 >BZ 
La u > 
1290 DATA 42,00,00,00,00,00,07,3F,F >BN 
id DATA 43,01,01,06,18,E0,E0,E0,E >BH 
“lé DATA 44,C1,01,01,00,00,00,00,0 >AH 
0 














1320 DATA 45,80,40,20,18,0E,0F,0F,0 >BX 
F 
1330 DATA 46,00,00,00,00,00,80,C0,E >BG 


.0 


1340 DATA 47,00,01,03,03,07,07,0F,0 >BC 
er DATA 48,FF,FF,FF,FE, FD, FD, FD,F DEF 
ee DATA 49,E0,B0,78,F8,FC,FF,FF,F DDY 
a DATA 50,00,82, 44,28, 10,10,EF,E BE 
_ DATA 51,0F,1B,1D,3E,3F,FF,FF,F DDC 
a DATA 52,F0,F0,F8,F8, 78, 7C, 7C,7 )CN 
di DATA 53,0F,1F,1F,1F,1F,3F,3F,3 )CI 
hi DATA 54,FD,FD, FD, FA,FB,F3,F3,E >DN 
” DATA 55,FF,FF,FF,FF,3C,C3,FF,F DDI 
1 DATA 56,EF,D7,D7,39,FE,FF,FF,F DDY 
dés DATA 57,FF,FE,FE, FD, 73,8F,FF,F DDT 
ko DATA 58,7C,FE,FE,FE,FE,FE,FE,F )DZ 
15 DATA 59,3F,3F,3F,3F,3F,3F,3F,3 DCI 
io DATA 60,E3,E3,E3,C1,C1,C1,C1,C )C) 
où DATA 61,FF,FF,FF,FF,FF,FF,FF,F DEP 
die DATA 62,FF,FF,FF,FF,FF,FF,FF,F DER 
_ DATA 63,FF,FD,FC,FC,FB,FB,F8,F >DY 
islé DATA 64,FF,FF,FF, 7F,3F,3F,7F,7 DE 
à DATA 65,3F,3F,3F,3F,3F,3F,3F,3 >CQ 
155 DATA 70,FF,FF,FF,FF,FF,FE,FE,F EE 
ii DATA 71,3F,3F,3F,3F,1F,1F,10,1 CH 
5 DATA 75,FD,FF,FF,FE,FE,FE, FC,F DEF 
LS DATA 76,FC,FC,FB, 78, 30,20, 40,4 >CG 
e DATA 81,F8,F8,F0,FO,E0,E4,E4,E )CK 
_ DATA 82, 40,40, 40, 40,40,40, 40,4 DAF 


À 














1590 ? >YH 
1600 DATA 67,FF,FF,00,00,FF,FF,FF,F )DC 
dés DATA 68,FF,FF,84,84,FF,FF,FF,F DDF 
1 DATA 69,F8,F8,08,08,F9,F9,FD,F >CV 
_ DATA 66,81,81,81,81,83,87,87,8 BB 
dé DATA 72,6F,8F,9F,9F,9F,BF,BF,B >DH 
is DATA 73,FF,FF,FF,FF,FF,FF,FF,F DER 
1 DATA 74,FF,FF,FF,FF,FF,FF,FF,F JEU 
4 DATA 75,FD,FF,FF,FE,FE,FE,FC,F )EJ 
DATA 78,FF,7F,7F,3F,3F,1F,0F,4 CC 
DATA 79,FF,FF,FF,FF,FF,FF,FF,F DEC 
ue DATA 80,FF,FF,FF,FF,FF,FF,FF,F DEX 
did DATA 81,F8,F8,FO,F0,E0,E4,E4,E CF 
ts DATA 84,67,3F,3F,9F,9F,DF,FF,F DDV 
. DATA 85,FF,FF,FF,FF,FF,FF,FF,F EU 
_ DATA 86,FF,FF,FF,FF,FF,FF,FF,F DEV 
ts DATA 87,FC,FC,FC,FC,FC,FF,FF,F DEG 
a DATA 89,FF,FF,FF,7F,7F,7F,7F,7 )DD 
on DATA 90,FF,FF,FF,FF,FF,FF,FF,F EU 
à DATA 91,FF,FF,FF,FF,FF,FF,FF,F Eu 
ee DATA 92,FF,FF,FF,FF,FF,FF,FF,F EY 
ee DATA 94,7F,7F,7F,7F,17F,7F,7F,7 )CD 
di DATA 95,FF,FF,FF,FF,FF,FF,FF,F DEU 
ui DATA 96,FF,FF,FF,FF,FF,FF,FF,F DEV 
ee DATA 97,FF,FF,FF,FF,FF,FF,FF,F DEY 
ik DATA 99,7F,7F, 7F,7F,7F,7F,7F,2 )CJ 
is DATA 100,FF,FF,FF,FF,FF,FF,FF, DEH 
es DATA 101,FF,FF,FF,FF,FF,FF,FF, DEH 
de DATA 102,FF,FF,FF,FF,FF,FF,FF, DEH 


00 

JHH0 Le destoee es >K 
1890 DATA 77,08, 08,08,08,08,08,04,0 >EBG 
4 

1900 DATA 83,02, 02,01,00,00,00,00,0 AY 
0 

1910 DATA 88, 40,80, 80, 80, 80,80, 80,8 >BF 
0 

1920 DATA 93, 80, 80, 80, 80, 80, 80, 80,8 >BG 
0 

1930 DATA 98, 80, 80, 80, 80, 80, 80, 80,8 >BN 
0 

1940 DATA 103, 80,80, 80, 80,80, 80,80, >CJ 
80 
1950 * 
1960 DATA 104, 20,20, 20,10,10,10,10, BN 
10 

1970 DATA 105,04,04, 04, 08, 08,08, 10, 
10 

1980 DATA 106,02,02,01,01,01,00,00, 
00 

1990 DATA 107,00,00, 00, 00,00,80,80, >BJ 


2000 DATA 108,80, 80,80, 80,80, 80, 80, 


2010 DATA 109,10,08,08,08,08,08, 04, 
5 DATA 110,10,10,10,10,20,20,20, DBY 
re DATA 111,80,40,40,40,20,20,20, DBR 
5 DATA 112,80,80,80,80,80,80,80, )CA 
20 DATA 113,04,04,04,04,04,08,08, >BG 
A DATA 114,20, 20,20, 20,30, 70,78, 
se DATA 115,10,10, 10, 10,30, 78,FC, 
4 DATA 116,80,80,80, 80, 40,40, 20, 
2 DATA 117,00, 00,00, 00,00,01,03, 
‘1 DATA 118,10,11,21,23,7F,FF,FE, 
si DATA 119,F8,F8,F8,F0,B0,20,20, >CJ 
x DATA 120,FE,FF,77,33,31,10, 10, 
5 DATA 121,10,10,08,84,C2,FF,7F, )CJ 
5 DATA 122, 00,00,00, 00,00,80, CO, 
co 

2150 ? )TA 
2160 DATA 43,01,01,06,18,F0,10,10,1 DAH 
0 














2170 DATA 45,80, 40,20,18,16,11,10,1 DAC 
oi DATA 48,00, 00,00,01,02,02,03,0 AG 
1 DATA 49,10,50,90,38,7C,FE,FF,F CD 
io DATA 50,00, 82,44,28,10,10,39,F BP 
à DATA 51,10,14,12,39,7C,FC,FE,F CE 
DATA 54,03,03,07,0B, 04,12, 12,2 >BQ 
— DATA 55,FF,FF,FF,FF,FF,3C,00,0 >DA 
ni DATA 56,FF,EF,EF,C7,01,00,00,0 >CU 
D DATA 57,FF,FF,FF,FE,FE, 72, 02,0 CB 
ns Ù »iC 
2270 DATA 42,00,00,00,00,00,07,38,C >AD 
DATA 46,00, 00,00, 00,00, 80, 40,2 DAJ 
né DATA 47,01,01,02,02,04,04,08,0 AD 
DATA 52,10,10,08,08,88,84,84,8 >BA 
ii DATA 53,08, 10,10,10,10,20, 20,2 DAE 
2 DATA 58,84, 02,02, 02,02,02,02,0 DAV 
_ DATA 59,20, 20, 20,20, 20,20, 20,2 AL 
2310 DATA 60,22,22,22,41,41,41,41,4 DAB 
nn DATA 61,00, 00,00,00,00,00,00,0 >AN 
4 DATA 62,00,00,00,00,00,00,00,0 >AQ 
ee DATA 63,05,05,04,04,08,08,08,0 >BN 
ue DATA 64,01,01,81,41,21,21,41,4 DAE 
DATA 65,20, 20, 20, 20,20, 20, 20,2 >AP 
sd DATA 67,00,FF,00,00,FF,FF,FF,F CH 
iii DATA 68,00,FF,84,84,FF,FF,FF,F >DG 
4 DATA 69,08,F8,08,08,F9,F9,FD,F >CV 
is DATA 70,81,81,81,81,01,02,02,0 )BC 
ue DATA 71,20,20,20,20,10,10,10,1 AC 


À 











5 DATA 76,04,08,10,10,20,20, 40,4 AZ 
us ' )TE 
2470 DATA 66,81,81,81,81,82,84,84,8 >BG 
is DATA 67,00, 00,00, 00,00, 00, 00,0 >AZ 
DATA 68,00, 00,00, 00,00, 20, 20,0 AF 
En DATA 69,08, 08,08, 08,09,09, 05,0 >BA 
Fe DATA 73,00,C0,FF,FF,7F,3F,0F,0 )CD 
2 DATA 74,00,00,FF,FF,FF,FF,FF,F )DB 
e D De 
2540 DATA 72,88,8F,9F,91,90, AO, A0, À )CJ 
_ DATA 75,05,7E,FE, F2,E2,C2,02,0 )CP 
si DATA 78,C0, 40,40,20,20,D0,D0,B BN 
En DATA 79,03,01,00,00,00,00, 00,0 >AG 
2 DATA 80,FC,F8,F0,F0,60,60,60,6 >CD 
5 DATA 81,04,04,08,08, 16, 1A, 1,1 >BP 
né DATA 84,90,40, 40, A0, E0, A0,80,8 >BD 
Aie DATA 85,00,00, 00, 00,00, 00,00,0 AU 
_ DATA 86,60,60,60,60,60,90,90,9 >BZ 
Fe DATA 87,02, 02,02,03,03,00,00,0 AL 
2540 DAT 89,80, 80,80, 40,40, 40, 40,2 >BN 
S DATA 90,00,00,01,01,01,02,02,0 >AD 
_ DATA 91,90,90, 08,08, 08,04, 04,0 >BW 
En DATA 92,00,00,00,00,00,00,00,0 DAY 
à DATA 94,20,20,20,20,10,10,10,1 >AQ 


| 


2690 DATA 95,02,04,04,04,08,08,08,0 >BV 
ie DATA 96,04,02,02,02,01,01,00,0 DAJ 
ht DATA 97,00,00,00,00,00,00,80,8 >AQ 
5 DATA 99,1E, 20, 20,20, 20, 20, 20,2 BG 
2 DATA 100,08,08,04,04,04,04,04, DBL 


04 

2740 DATA 101,00,00,01,01,01,02,02, BE 
02 

2750 DATA 102,88,87,00,00,00,00,00, BF 
00 

DTGD Ÿ == use >YH 
2770 DATA 43,01,01,06,18,E0,00,00,0 >BC 
0 

2780 DATA 45,80,40,20,18,06,01,00,0 AF 
0 

2790 DATA 48,00,00,00,01,02,02,02,0 AN 
2 

2800 DATA 49,00, 40, 80, 00,00, 00,30,5 >AA 
8 

2810 DATA 50,00, 82, 44,28, 10,10,10,1 DAX 
0 

2820 DATA 51,00,04, 02, 01,00, 00, 18,3 DAP 
à 

2830 DATA 54,02, 02, 07, 0B,0A, 12,12,2 BU 
2 

2840 DATA 55,30,00, 00, 00,C3,3C, 00,0 )BN 
0 

2850 DATA 56,10, 28, 28,C6,01,00,00,0 >BQ 
0 

2860 DATA 57,18,01,01,02,8E, 72,02,0 )BB 
2 

2870  ----" K 
2880 DATA 72,88,88, 90,90, 90, AO, AO, À BK 
0 5 

2890 DATA 73,00,00,00,00,00,01,07,0 AN 
3 

2900 DATA 74,00,00,00,00,00,F8,FE,F BJ 
C 

2910 DATA 75,05,02, 02,02, 02, 02,02,0 AR 
2 

2920 DATA 79,01,01,00,00,00,00,00,0 >AD 
0 

2930 DATA 80,F8,F8,F0,F0,60,60,60,6 >BZ 
0 

2940 ? -------- >YH 
2950 DATA 15,7,16,9,17,7,18,9,19,7, >JZ 
20,9,21,7 

2960 DATA 22,9, 23,7,24,9,25,7,26,9, >JG 
27,7,28,9 

2970 DATA 29,7,30,9,31,7,32,9,33,7, JA 
34,9,35,7 


2980 DATA 36,9,37,7,38,9, 30, 7 DC 
2990 ? ------"" »1C 
3000 CALL LBB4E DVF 
3010 MEMORY 20000:SYMBOL AFTER 32 AG 
3020 FOR K=1 TO NC >LD 


3030 READ NK,D$(1),D$(2),D$(3),D$(4 >BC 
),D$(5),D$(6),D$(7),D$(8) 

3040 FOR X=1 TO 8:D(X)=VAL("&"+D$(X >LC 
)):NEXT 

3050 SYMBOL NK,D(1),D(2),D(3),D(4), >UK 








D(5),D(6),D(7),D(8) 
3060 NEXT K:RETURN NI 
3070 ? --------- »YC 


3080 DATA 33,6,3,34,7,3,35,8,3,36,6 DBV 
,4,37,7,4,38,8,4,39,6,5,40,7,5,41,8 
,5,44,7,6 
3090 DATA 77,4,12,82,9,12,83,4,13,8 DFY 
8,9,13 
3100 DATA 43,6,6,45,8,6,48,5,7,49,6 BF 
,7,50,7,7,51,8,7,54,5,8,55,6,8,56,7 
,8,57,8,8 

3110 DATA 42,5,6,46,9,6,47,4,7,52,9 >RB 
,7,53,4,8,58,9,8,59,4,9,60,5,9,61,6 

g 

? 
3120 DATA 62,7,9,63,8,9,64,9,9,65,4 >DQ 
,10,70,9,10,71,4,11,76,9,11 
3130 DATA 67,6,10,68,7,10,69,8,10,6 DFK 
6,5,10 
3140 DATA 78,5,12,81,8,12,84,5,13,8 TU 
5,6,13,86,7,13,87,8,13,89,5, 14,90,6 

,14 

3150 DATA 91,7,14,92,8,14,94,5,15,9 DVY 
5,6,15,96,7,15,97,8,15,99,5,16,100, 


6,16 

3160 DATA 101,7,16,102,8,16 TJ 
3170 DATA 72,5,11,73,6,11,74,7,11,7 DYH 
5,8,11,79,6,12, 80, 7,12 


3180 DATA 93,9,14,98,9,15,103,9,16 DZV 
3190 DATA 104,5,17,105,6,17,106,7,1 >BQ 
7 
3200 DATA 107,8,17,108,9,17,109,5,1 >DH 
8,110,6,18,111,8,18,112,9,18,113,5, 
19,114,6,19 
3210 DATA 115,8,19,116,9,19,117,4,2 DEC 
0,118,5,20,119,6,20,120,8,20,121,9, 
20,122, 10, 20 
3220 * ------- > 
3230 TAGOFF:PAPER 3:PEN O:CAR=33  DAE 
3240 FOR 1=1 TO NC2:READ CAR, COL,LI DRN 
G:LOCATE COL, LIG:PRINT CHRS (CAR) 
3250 CAR-CAR+1:NEXT I :RETURN >YG 
3260 ? -------- >» 
3270 FOR 1=1 TO LEN(TS):LOCATE CC+1 >CD 
,LL:PRINT MIDS (TS, 1, 1)4CHR$ (143): IF 
SD=1 THEN SOUND 1, INT(RND*#300) 450, 
1,11 
3280 FOR T=1 TO S0:NEXT T:NEIT 1:LO DMX 
CATE CC+1,LL:PRINT" *:RETURN 
3290 ? --------"" >YG 
3300 DATA MAISON, JARDIN, LIVRE, JOYEU >TB 
1, FILLETTE, DOIGT, GYMNASTIQUE, AMOUR, 
CAMION, DISQUETTE, DISCOURS, ORDINATEU 


À 





| 3310 DATA GRENOUILLE, POISSON, CRAYON >UA 


,ROBINET, TABOURET, MYSTERE, DENT, RADI 
0,MAISON, AVION, POTENCE, ENFANT, LUMIE 

RE 

3320 DATA AMPHORE, VITRINE, KLAXON, PO >RC 
MHE, LUNETTE, GAZ, STYLO, ECRAN, CLAVIER 
,CALCULATRICE, ARMOIRE, POUBELLE, ECOL 

E 

3330 DATA MAGASIN, SOULIER, BOUTEILLE >JC 
,VAGON, OUIE, YAOURT, QUEUE, JAXBON, BAL 
ANCE, ACCENT, PANTALON, CHAISE, ETAGE 

3340 DATA QUARTZ, FLEUR, TONNEAU, CIEL >TF 
, JUSTICE, SCHISTE, ZERO, YACH, VILLE, JE 
U,PROGRAMHE, BASIC, MUSIQUE, ROBOT, FUS 
FE 

3350 DATA FRANCE, AMSTRAD, BATEAU, OR 
T, TELE, FLUTE, CATALOGUE, TELEPHONE, LO 
GICIEL, PERIPHERIQUE, INFORMATIQUE 
3360 DATA OCEAN, MER, SOLEIL, SYMPHONI 
E, COULEUR, OISEAU, ARC, ONDE, MISSON, MO 
NDE, HISTOIRE, BOXE, TABLE, MONTAGNE 
3370 DATA PARAPSYCHOLOGIE, EAU,MEMOI >RU 
RE, LUTIN, TEMPS, PRIX, COPYRIGHT, CASSE 
TIE, DIEU 

3380 ? ------------ »TG 
3390 DATA 79, 29,88, 29, 79,59,88, 29,9 >JF 
7,29,103,29,114,29,121,64,114,99, 15 
0,29,167,29, 150,59, 198, 44, 187, 44,23 
3,69,221,89, 292, 29, 327, 29, 292,59, 32 
7,29,366, 29, 387, 29, 434, 29, 459,59, 43 
4,99,114,29, 127,29 

3400 DATA 114,29,142,29,114,29,150, BG 
29,114,29,167,29,114,29, 177,29, 114, 
29,167, 29,114, 29,150, 29, 114, 29, 142, 
29,114,29,434,29, 114,29, 387,29, 114, 
29,346, 29,114, 29,327, 29, 114,29, 346, 
29,114, 29, 327, 29 

3410 DATA 114,29, 292, 29,114,29, 142, NH 
49,114,49,142, 49, 114,49, 108, 49, 327, 
49,108, 49, 327, 49,127, 49, 150, 49, 127, 
49,150, 49, 114, 49,366, 49, 114,49, 366, 
49,142, 49,327, 49, 142, 49,327, 49, 121, 
49,387, 49, 121,49, 387 

3420 DATA 49, 150,49, 366, 49, 150, 49,3 >PQ 
66,49, 167, 49,459, 49, 159, 49, 167, 49,4 
59,49, 366,49, 434,49, 366,49, 434,49, 4 
10,49,1081,49,410, 49, 1081, 49,292, 10 


V 


JJ 


V 


HV 


9,0 
3430 ? -------""" TC 
3440 DI >PH 


3450 IF(SQUL)AND 7)=0 THEN EI:RETUR DUY 
N ELSE SF=SF+1:1F FQ(SF)=0 THEN SF: 

{ 

3460 SOUND 1,FQ(SF)#2,FQ2(SF),5:SOU >vQ 
ND 2,1/2,FQ2(5F),5:SOUND 4,FQ(SF),F 
Q2(SF),7:G0T0 3450e 





TABLES DE MULTIPLICATION 


[OV ==<2S sers ssessssss prese )LA 
ntation ------------------------ 

20 MODE 2:GO0SUB 80 >HJ 
30 MODE 1:GOSUB 80 >HJ 
40 HODE 0:GOSUB 80 >HJ 
50 GOTO 100 ?RE 
60 MODE 2 >BK 


70 INK 0,0:INK 1,26:BORDER 0 >VL 
80 LOCATE 8,13:PRINT'E.A.0.":FOR tp >ZP 
=1 TO 1100:NEXT:CLS 

90 RETURN >TH 
100 LOCATE 2,6:PRINT"TABLES DE":FOR >KC 
TP=1 TO 1000:NEIT:LOCATE 5,13:PRIN 
T'MULTIPLICATIONS":FOR TP=1 TO 2000 
:NEXT 

110 LOCATE 10,23:PRINT"# C.Pico #" )CV 
120 LOCATE 5,2:PRINT®4 X ?":LOCATE DVV 
15,5:PRINT"= 8" 

130 LOCATE 3,15:PRINT"3":LOCATE 13, >QL 
10:PRINT"7" 

140 LOCATE 2,21:PRINT"? X O0 =":LOCA >DH 
TE 10,17:PRINT"2 X 2 =" 

150 FOR TP=1 TO 1500:NEXT TJ 
160 READ 1:1F 1=-1 THEN RESTORE 180 >LH 
:G0T0 200 

170 READ M:SOUND 1,1#2,M,5:SOUND 2, >MR 
1/2,M,5:SOUND 4,1,H,7:G0T0 160 

180 DATA 478,20, 379,20, 319,20,379,2 >BQ 
0,358, 20,284,20,239,20,00,5,239,25, 
319, 20,253, 20, 213,20, 253,20, 239, 20, 
319,20, 00,5, 319, 30, 00, 15,478, 20, 379 

, 20, 319,20, 379, 20, 358, 20, 284, 20, 239 
,20,00,5,239,25,319,20,253,20,213,2 
0,253,20,213,20,00,5,239, 20,00, 10 

190 DATA 239,55,00,25,319,80, 284,80 >JH 
319,20, 358, 20, 379, 20, 426, 20, 379, 40 
,478,40,239, 40, 284, 40,319, 40,253, 40 
239,60, -1 


Cation. --=""""""25TSS sense 

210 INK 1,0:INK 0,13:BORDER 3:MHODE )CY 
2 

220 LOCATE 30,2:PRINT"TABLES DE MUL >RF 
TIPLICATIONS":LOCATE 28,3:PRINT"=== 

230 LOCATE 5,5:PRINT"Ce progranse p >JN 
erset d'apprendre les tables etape 


Ÿ Pasla peine d’en faire 
une tartine : le titre 
explique bien ce dont il 
s’agit. Il y a2 types 
d'exercices : la révision 
d’une table et une 
séance où l’élève fait à 
la fois les questions et 
les réponses avec des 
résultats graphiques à 
l'appui. 

Le mode d’emploi est 
inclus dans le 
programme. 





Operation Ne 1 





Tables 8 à 2 / Multiplicoteuw 8 à 14 


lape toi-mene les chiffres puis le 
resultat Tape ŒNTEN s'il n'y 4 pas 






Valable pour 
CPC 64 
CPC 664 


par etape d’une saniere 

240 LOCATE 5,7:PRINT" logique et pro >TA 
gressive,en choisissant une des qua 
tres options. 

250 LOCATE 5,9:PRINT"I1 est prevu p >PR 
our etre utilise par l'enfant d’une 
facon siaple et continue. 

260 LOCATE 5,11:PRINT"Lorsque la ta >WP 

ble sera apprise, les parents pourro 

nt verifier le travail fait, 


À 





270 LOCATE 5,13:PRINT"en passant d’ >RY 
une etape a une autre,grace aux opt 
ions proposees. 11 sera donc 

280 LOCATE 5,15:PRINT"preferable,au )JA 
depart,de choisir l'option À pour 
persettre a l'enfant de 

290 LOCATE 5,17:PRINT"progresser lo >WW 
giquesent, jusqu'au dernier node,san 
s retour possible, les trois 

300 LOCATE 5,19:PRINT'autres ayant 
un acces direct pour rappel ou veri 
fication. 

310 LOCATE 5,24:PRINT"Presser une t >UJ 
ouche 

320 CALL &BBO6:PRINT CHR$(7) 
330 CLS:LOCATE 5,5:PRINT"Apres avoi >TK 
r tape un chiffre,s'il y a un SIGNA 

L SONORE, cela signifie que le 

340 LOCATE 5,7:PRINT'RESULTAT EST H >ZA 
OHOLOGUE. Dans le cas contraire,appu 

yer la touche (ENTER). 

350 LOCATE 5,9:PRINT"En option B,il 
est demande de choisir la vitesse 
d’affichage en secondes 

360 LOCATE 5,11:PRINT"(de 1 a 9) po >H4 
ur permettre de reciter la table. 

370 LOCATE 5,13:PRINT"A la fin des >1B 
options C et D,le nombre d'erreurs 
faites est affiche. 

380 LOCATE 5,15:PRINT"L’option D es >M4 
t une suite de 10 aultiplications 1 
aissees au choix de l'uti- 

390 LOCATE 5,17:PRINT"lisateur(ault >PN 
iplication par 0 possible).Au trois 
iene essai,si le resultat 

400 LOCATE 5,19:PRINT"n'est pas tro >MB 

uve il s’affichera tout seul.Les re 
ponses sont visibles sur 

410 LOCATE 5,21:PRINT"un graphique )JH 
siaple,le but etant de ne pas depas 

ser la ligne Tres Bien. 

420 LOCATE 5,24:PRINT"Presser une t UT 

ouche 

430 CALL &BBO6:PRINT CHR$(7) 


1010 CLS:INK 1,0:INK 0,13:BORDER 3: >NP 
MODE 2:LOCATE 40,3:PRINT"MENU 


1020 LOCATE 38,4:PRINT"-------- " >ZK 

1030 LOCATE 14,8:PRINT"Deroulesent >BF 

noraal du progranse":LOCATE 60, 7:PR 

INT CHR$(24)* "CHR$ (24) :LOC 

ATE 60,8:PRINT CHR$(24)" taper À "C 

HR$(24) :LOCATE 60,9:PRINT CHR$(24)" 
*CHR$(24)°--- en inversion 

video(fond noir) 

1040 LOCATE 14,12:PRINT"Recitation GT 

de la table*:LOCATE 60,11:PRINT CHR 

$(24)" "CHR$ (24) :LOCATE 60, 

12:PRINT CHR$(24)" taper B "CHR$(24 

):LOCATE 60,13:PRINT CHR$(24)° 

"CHR$ (24) 

1050 LOCATE 14,16:PRINT"Demande l’i >WZ 

ntroduction du resultat":LOCATE 60, 

15:PRINT CHR$(24)" "CHR$ (24 

):LOCATE 60,16:PRINT CHR$(24)* tape 

r C "CHR$(24):LOCATE 60,17:PRINT CH 

R$(24)" "CHR$ (24) 

1060 LOCATE 14,20:PRINT"Entree de t >YX 

ous les chiffres":LOCATE 60,19:PRIN 

T CHR$(24)" *CHR$ (24) : LOCAT 

E 60,20:PRINT CHR$(24)" taper D "CH 

R$(24):LOCATE 60,21:PRINT CHR$(24)" 
"CHR$ (24) 

1100 *------------------- definitio >XE 

n fenetres --------------------- 

1110 VINDOW #1,1,36,6,17 ‘fenetre h >RZ 

aut gauche 

1120 VINDOW #2,39,68,7,18 "fenetre TR 

haut droite 

1130 WINDOW #3,66,80,7,18 "fenetre >TH 

haut droit (complement pour resulta 

t) 

1140 WINDOW #4,42,80,20,40 ‘fenetre >TC 

bas droit 

1150 WINDOW #5,1,36,22,40 ‘fenetre DRF 

bas gauche 

1160 WINDOW #6,1,36,20,21 ‘fenetre RE 

nilieu gauche 

1170 WINDOW 87,1,36,20,40 ‘fenetre RH 

couvrant milieu et bas gauche 


12005 nssesree choix d >IF 
e l'option --------------------- 

1210 GOSUB 21000 CD 
1220 GOTO 21020 JUA 


1230 *---- affichage homologue de 1 >1J 
’option en inversion video ----- 

1240 IF OPT$="A" THEN LOCATE 61,8:P >BG 
RINT CHR$(7);" A  ":FOR tp-1 TO 
500:NEXT 

1250 IF OPT$="B" THEN LOCATE 61,12: )CE 
PRINT CHR$(7);" BB  ":FOR tp-1 TO 
500:NEXT 

1260 1F OPT$="C" THEN LOCATE 61,16: >CH 














PRINT CHR$#(7);"  C 
500:NEXT 

1270 IF OPT$="D* THEN LOCATE 61,20: >RP 
PRINT CHR$(7);" D  ":FOR tp=1 TO 
500:NEIT:G0TO 1300 

1300-75-75 tableau cosaun pou >1G 
r toutes les options ----------- 

1310 CLS:FOR y=1 TO 40:LOCATE 37,39 >BE 
:PRINT CHR$(149) :NEXT 

1320 ORIGIN 0,110:DRAW 800,0:0RIGIN >VP 
0,350:DRAN 800,0 

1330 LOCATE 1,1:PRINT CHR$(24);SPAC 2KF 
E$ (36) ;CHR$(24) :LOCATE 1,2:PRINT CH 
R$(24)5% + TABLES DE MULTIPLICAT 
IONS # ";CHR#(24):LOCATE 1,3:PRIN 
T CHR$ (24) ; SPACES (36) ;CHR$ (24) 

1340 LOCATE 38,1:PRINT CHR$(24) ; SPA 
CE#$(43) ;CHR$ (24) :LOCATE 38,3:PRINT 
CHR$ (24) ;SPACES(43) ;CHR$(24):1F OPT 
$="D" THEN 20000! ---------- pour con 


*:FOR tp=1 TO 


V 


IN 


n pour Noi,2,3 ----------------- 
1360 LOCATE 38,2:PRINT CHR$(24);"  >RB 
TABLE DE MULTIPLICATION PAR: 

";CHR$ (24) 
1370 CLS #5:LOCATE 14,22:PRINT"TABL >KD 
E DE :" 
1380 NBC=2:x=24:y=22:G0SUB 21400  DAF 
1390 TA=VAL(ch$) >LG 
1400 IF TAC OR TA»>20 THEN 1370 JL 
1405 IF TAC10 THEN LOCATE 25,22:PRI >PH 
NT CHR$(128) 
1410 FOR tp=1 TO 750:NEXT:CLS #5  >ZB 
1420 x=21:1F LEN(TA$)=2 THEN x=x+1: DUY 
PRINT SPACES$(x) 


1430 GOSUB 21500 >DC 
1440 *------------- option pour dire >YB 
ct tableaux No2 ou 3 ----------- 

1450 IF OPT$="B" THEN 10000 TI 
1460 IF OPT$="C" THEN 15000 >TE 
5000 ?*----------- tableau Noi et su >IH 


ite sans option ---------------- 

5010 FOR HU=1 TO 10:PRINT#2,TAB(10) DFE 
5 TA; CHR$ (120) ; MU; TAB(22)°=" 5: PRINT 

3, TA#HU 

5020 PRINT:NEXT >L4 
5030 LOCATE 48,22:PRINT"Pour contin >IP 
uer ---)";CHR$(24);" S ";CHR$(24) 

5040 GOSUB 21300 >DB 
5050 IF tou$="S"THEN PRINT CHR$(7): AU 
GOTO 10000 ELSE 5040 

10000 ?---------------------- table >CG 











au No2 ------------------------ 

10010 CLS #2:CLS #3:CLS #4:LOCATE 4 >GC 
6,21:PRINT"Recite la table et verif 

ie” 

10020 LOCATE 49,23:PRINT"le resulta >YN 
t affiche." 


ffichage ligne/ligne ----------- 

10040 LOCATE 3,21:PRINT"duree d’att >RB 
ente entre les lignes" 

10050 CLS#5:ch$="":LOCATE 11,23:PRI EM 
NT'en seconde(s): ";"REM choix du t 


enps 

10060 NBC=1::=26:y=23:GOSUB 21400 BE 
10070 ch=VAL(ch$) >LK 
10080 IF ch<i OR ch>9 THEN 10050 )IN 
10090 t=ch#1000:MU=1 >PD 
10100 FOR t=0 TO t:NEXT:G0SUB 21200 >CH 
10110 CLS#4 >RG 


10120 LOCATE 48,20:PRINT"Pour recom >AE 
sancer --)";CHR$(24);" R ";CHR$(24) 
10130 LOCATE 48,24:PRINT"Pour conti >2T 
nuer --)";CHR$(24);" S ";CHR$(24) 
10140 IF OPT$="A" GOTO 10150 ELSE L >EL 
OCATE 48,22:PRINT"Pour retour Menu 
--)":CHRS(24);" NM ";CHR$(24) :GOSUB 
21300:G0T0 10170 


10150 GOSUB 21300 >LN 
10160 GOTO 10180 >BA 
10170 GOSUB 21320 >LT 


10180 IF TOU$="R" THEN PRINT CHR$(7 >VNM 
):CLS#2:CLS#3:CLS#4:CLSES:GOTO 1000 

0 

10190 IF TOU$="S* THEN PRINT CHR$(7 >AE 
):G0T0 15000 ELSE 10150 


15000: 7-55 Table >DB 
CURE 

15010 GOSUB 21600 )LR 
15020 CLS#3:CLS#4:CLS85 :CLS86 YF 


15030 LOCATE 45,21:PRINT"Tape toi m >NW 
ese le Resultat avec" 

15040 LOCATE 54,23:PRINT'les touche >LE 
s." 

15050 FA=0:x-67:y=7:NBC=1:MU=1:TA=T DUX 
A:GOSUB 21800'REM definition des va 
riables 

15060 ch$="":LOCATE x,y:PRINT "";:P DUU 
RINT CHR$(242); 

15070 GOSUB 21420 >LY 
15080 RES=VAL(ch$) >HF 
15090 IF RES=MUY#TA THEN 21700 ELSE >UM 
LOCATE x-1,y:SOUND 1,200,50,6:FA=FA 
+1:PRINT RES;:FOR tp=1 TO 750:NEIT 
15100 IF HU>10 THEN 15130 )RT 
15110 GOSUB 21810 )LW 
15120 GOTO 15060 >BD 


15130 GOSUB 22000 >LP 
15140 CLS#4:LOCATE 48,20:PRINT"Pour >KK 
recommancer --)>":;CHR$(24);" R ";CH 

R$(24) 

15150 LOCATE 48,24:PRINT"Pour conti )ZA 

nuer --)":;CHRS(24);" S ";CHR$(24) 

15160 IF OPT$="A" THEN GO0TO 15170 E >PB 

LSE LOCATE 48,22:PRINT"Pour retour 

Menu -->";CHR$(24);" M ":CHR$(24):G 

OSUB 21300:G0T0 15190 


15170 GOSUB 21300 >LN 
15180 GOTO 15200 >BF 
15190 GOSUB 21320 >LA 


15200 1F TOU$="R* THEN PRINT CHR$(7 >DF 
):CLS#2:CLS#3:CLS#4:CLSE5 : CLS86 : GOT 

0 15000 

15210 IF TOU$="S® THEN PRINT CHR$(7 >ZH 
):CLS#2:CLS#3:CLS#4:GOTO 20000 ELSE 
15170 


20000 5525 opti >CH 
On Nod; Sr sers senesresssenes 
20010 =55=5-5sssesse ses complemen >CJ 


20020 Z=1:FA=0:CLS#1:CLS#7:x=3:y=17 >DB 
:v=x:w=y:LOCATE 41,17:PRINT"Tables 

0 a 20 / Hultiplicateur 0 a 10" 

20030 ORIGIN 23,125:DRAW 0,200:0RIG >PA 
IN 10,141:DRAW 250,0:0RIGIN 18,324: 
DRAY 4,6:0RIGIN 27,324:DRAU -4,6 

20040 ORIGIN 22,125:DRAW 0,200:0RIG >DQ 
IN 261,137:DRAN 7,3:0RIGIN 261,145: 
DRAY 7,-4 

20050 LOCATE 2,5:PRINT"y":LOCATE 35 >GC 
,17:PRINT"x":GOSUB 22400 

20060 LOCATE 5,21:PRINT"Vers x = no >HG 
abre de reponses 

20070 LOCATE 6,23:PRINT"Vers y = re >DD 
ponses justes 

20080 ORIGIN 104,135:DRAY 0,10:0RIG >FQ 
IN 104,303:DRAN 0,-10:LOCATE 12,18: 
PRINT "TB" 

20090 ORIGIN 176,135:DRAV 0,10:0RIG >EH 
IN 176,303:DRAN 0,-10:LOCATE 22,18: 
PRINT "P® 

20100 ORIGIN 248,135:DRAW 0,10:0RIG >AK 
IN 248,303:DRAN 0,-10:LOCATE 31,18: 
PRINT "M":LOCATE 10,6:PRINT"10 repo 
nses justes" 

20110 ORIGIN 15,304:DRAW 240,0 > 
20120 ORIGIN 365,160:DRAV 200,0:0R1 >DT 
GIN 565,160:DRAY 0,110:0RIGIN 565,2 
70:DRAU -200,0:0RIGIN 365,270:DRAV 
0,-110 

20130 LOCATE 52,6:PRINT "Operation >NC 
No":Z 

20140 LOCATE 42,20:PRINT"Tape toi-m >VU 








ese les chiffres puis le” 

20150 LOCATE 42,22:PRINT"resultat.T >VQ 
ape <ENTER) s'il n’y a pas" 

20160 LOCATE 42,24:PRINT"de signal >TG 
sonore." 

20170 ESS=1:LOCATE 38,2:PRINT CHR$( DLJ 
24); tu as trois essais pour trou 
ver ";CHR$(24);" No":LOCATE 78,2:PR 

INT CHR$(24);" ";CHR$(24) 


20180 GOSUB 21900 >LZ 


20190 x=50:y=10:NBC=2:GO0SUB 21400  >BD 
UE SUR MINITEL. 
Le MHZ 


DZ 





20200 TA=VAL(ch$):1F TA=0 AND ch$(> >VN 
"O0" THEN GOTO 20190 

20210 IF TA(O OR TA>20 THEN LOCATE >ZF 
1,Y:PRINT CHR$(128) ;CHR$ (128) :GOTO 
20190 

20215 IF TACI0 THEN LOCATE x+1,y:PR DQU 
INT CHR$ (128) 

20220 LOCATE 54,10:PRINT CHR$(120): >JQ 
1=58:y=10:NBC=2:GOSUB 21400 

20230 HU=VAL(ch$):1F MU=0 AND ch$C> >VN 
*0* THEN GOTO 20220 

20240 IF MU<O OR MU>10 THEN LOCATE ZE 
1,Y:PRINT CHR$(128) ;CHR$ (128) :GOTO 
20220 

20245 IF MUC10 THEN LOCATE x+#1,y:PR )QL 
INT CHR$(128) 

20250 LOCATE 63,10:PRINT CHR$(61):x >ZY 
=66:y=10:GOSUB 21800 

20260 GOSUB 21900 >LY 
20270 GOSUB 21400 >LU 
20280 RES=VAL(ch$):1F RES=0 AND ch$ >YN 
€>"0" THEN GOTO 20270 

20290 IF RES=TA#MU THEN LOCATE x-1, DKY 
y:PRINT RES:LOCATE 56,12:PRINT" JUS 
TE *:FOR tp=1 TO 2500:NEIT:ESS=1:v= 
vti:w=u-1:G0SUB 22300:GO0T0 20320 
20300 LOCATE x-1,y:SOUND 1,200,50,6 
:PRINT RES; :FA=FA+1:LOCATE 56,12:PR 
INT® FAUX ":FOR tp=1 TO S00:NEXT:ES 


À 


V 








S=ESS+1 

20310 IF ESS=4 THEN LOCATE x-1,y:PR >XV 
INT TA#MU:LOCATE 54,12:PRINT" RESUL 
TAT “:FOR tp=1 TO 2000:NEXT:v=v+1:G 
OSUB 22320:ES55-3:G0SUB 21900:G0T0 2 
0320 ELSE v=v+1:G0SUB 22310:G0T0 20 
250 

20320 IF TA=MU GOTO 20360 >TB 
20330 LOCATE 52,12:FO0R tp=1 TO 1000 >KB 
:NEXT:PRINT®MAIS EGALEMENT" 

20340 LOCATE 49,14:PRINT MU:LOCATE )DVR 
54,14:PRINT CHR$(120) :LOCATE 57,14: 
PRINT TA:LOCATE 63,14:PRINT CHR$(61 
):LOCATE 65,14:PRINT TA#HU 

20350 FOR tp=1 TO 3000:NEXT )W 
20360 IF Z=10 GOTO 20370 ELSE Z-Z+1 >BG 
:CLS#2:CLS#3:G0T0 20080 

20370 GOSUB 22000:CLS#4:LOCATE 48,2 DCT 
0:PRINT"Pour recossancer --)":;CHR$( 
24);" R ";CHR$(24) 

20380 LOCATE 48,24:PRINT"Pour retou >AE 
r Menu --)>":;CHR$(24);" M ";CHR#(24) 
20390 GOSUB 21300 >LU 
20400 GOSUB 21320 >LP 
20410 IF TOU$="R" THEN PRINT CHR$(7 >JE 
):CLS#2:CLS8#3:CLS#4:CLS#5:GOTO 2000 

0 ELSE 20390°---------------------- 


21000 OPT$=INKEYS:1F OPT$="" THEN 2 DFC 
1000 

21010 OPT$=UPPERS (OPT$) : RETURN DAE 

21020 IF OPT$="A" OR OPT$="B" OR OP >QB 

T$="C" OR OPT$="D" G0TO 1230 ELSE 1 

210 

21200 FOR MU=1 TO 10:PRINT#2,TAB (1 >HU 

0) ;TA;CHR$ (120) ; MU; TAB(22) "="; :PRIN 

T#3, TA#HU 

21210 IF MU=10 THEN RETURN ELSE FOR >CD 
t=0 TO t:NEXT t:NEXT MU 

21300 TOUS=INKEYS:1F TOUS="" THEN 2 )FV 
1300 

21310 TOUS=UPPERS$ (TOUS) : RETURN >AU 

21320 IF TOU$="M" THEN PRINT CHR$(7 »>LC 
):CLS#2:CLS#3:CLS#4:CLS8#5:GOTO 1000 
ELSE RETURN 

21400 LOCATE x,y:PRINT CHR$(233) DAT 
21410 ch$="":LOCATE x,y:PRINT "";  DAN 
21420 c$=INKEY$ >CH 
21425 IF ch$="0" THEN NBC=1:G070 21 >DG 
470 

21430 IF c$=CHR$(13) THEN PRINT CHR >RD 
$(7):G0T0 21470 

21440 IF c$C"" THEN PRINT c$;:ch$= >GA 
ch$tc$ 

21450 1F LEN(ch$)=NBC THEN PRINT CH >UB 





ORTHOCHIFFRE 


D. CANTILLAC 


SRIHOCHIFFRE 


<£ui 


ENCORE YNE-FSAE 


PEAR ASE LIENS 


TABLE 





DE MULTIPLICATION 
6, “6e OÙ hs 2 Es 
R$(7):GOTO 21470 
21460 GOTO 21420 )BE 
21470 LOCATE x,y:PRINT ch$ NJ 
21480 ON ERROR GOTO 22200 )TU 
21490 RETURN DU 


21500 CLS 81:LOCATE 8,10:PRINT CHR$ >LM 
(24) ;SPACES (x) ;CHR$(24) :LOCATE 8,11 
:PRINT* Voici la table de";TA;:LOCA 

TE 8,12:PRINT CHR$(24) ; SPACE# (x) ; CH 

R$ (24) 

21510 LOCATE 73,2:PRINT TA:RETURN  >CD 

21600 CLS#2:CLS#3:CLS#4:FOR MU=1 TO >GP 
10:PRINT#2,TAB (10) ; TA; CHR$ (120) ;M 

U;TAB(22)"=%:NEXT :RETURN 

21700 LOCATE x-1,y:PRINT RES:MU=MU+ >ZG 

1:y=Y+1:G0T0 15100 

21800 IF MU#TA>=0 AND MU#TA(10 THEN DVI 
NBC=1:LOCATE x,y 

21810 IF HU#TA)9 THEN NBC=2:LOCATE >NK 

x+1,y:PRINT CHR$(128) ;CHR$(128) 











TE = 


vingt 
nvrt e 


eux 


——»< 


2 
LAND À 


21820 IF MU#TA)99 THEN NBC=3:LOCATE DUB 
x+2,y:PRINT CHR$(128) ;CHR$(128) :RE 
TURN ELSE RETURN 

21900 LOCATE 75,2:PRINT ESS:RETURN )DDF 
22000 IF FA=0 THEN CLS#5:LOCATE 2,2 >DH 
1:PRINT CHR$(24) ; SPACES (33) ;CHR# (24 
):LOCATE 2,22:PRINT CHR$(24);" BRAV 

0 TU N'AS PAS FAIT DE FAUTE ";CHR$( 

24) :LOCATE 2,23:PRINT CHR$(24) ; SPAC 

E$(33) ;CHR$(24) :ENT 1,100,-5,2:SOUN 

D 1,70,25,4,0,1:RETURN 

22100 CLS#5:IF FA)9 THEN x=24 ELSE DEV 
1=23 

22110 CLS#7:LOCATE 8,21:PRINT CHR$( DIX 
24) ;SPACES (x) ;CHR$(24) :LOCATE 8,22: 

PRINT CHR$(24);" TU AS FAIT";FA; "FA 

UTE(S) ";CHR$(24) :LOCATE 8,23:PRINT 
CHR$ (24) ; SPACES (x) ; CHR$ (24) : SOUND 
1,3822, 100, 7:RETUERN 

22200 IF ERL-1390 AND ERR-13 THEN T DUF 
A=-1:RESUME NEXT 

22210 IF ERL-10070 AND ERR-13 THEN D)DUN 
ch-0:RESUME NEXT 

22220 IF ERL-15080 AND ERR-13 THEN 

RES=0:RESUME NEXT 

22230 IF ERL=20200 AND ERR=13 THEN 


à 


JW 


VU 


Le but de cet éducatif est 
d’apprendre aux enfants 
(bien que les essais aient 
profité aux plus grands) 
l'orthographe bien 
particulière des nombres en 
langue française. 





tes, soit en mode “apprendre”, soit 
en mode “jouer”. Les deux pouvant 
se substituer à tout moment. D 


Ï 1 s’utilise de deux façons différen- 





TA=-1:RESUME NEXT 

22240 IF ERL=20230 AND ERR-13 THEN >WD 

MU=-1:RESUHE NEXT 

22250 IF ERL-20280 AND ERR-13 THEN XL 
RES=-1:RESUME NEXT 

22300 LOCATE v,w:a=204:SYHBOL AFTER >XD 
a:SYHBOL a,1,2,4,8,16,32,64,128:PR 

INT CHR$(a) :RETURN 

22310 LOCATE v,w-1:b=208:SYMBOL AFT >VL 

ER b:SYMBOL b,0,0,0,0,0,0,0,255:PRI 

NT CHR$(b) :RETURN 

22320 IF w=17 THEN w=17:LOCATE v,wu- WT 
1:PRINT CHR$(b):RETURN:ELSE LOCATE 

v,w:c=205:SYMBOL AFTER c:SYABOL c,1 
28,64,32,16,8,4,2,129:PRINT CHR$(c) 
:w=w+1:RETURN 


22400 d=132 >NH 
22410 SYMBOL AFTER d >PG 
22420 SYMBOL d,0,0,0,0,0,0,0,128  DYU 
22430 x=4:y=16 >UC 
22431 LOCATE x,y >LH 


22440 FOR p=33 TO 323 STEP 10:PRINT >RW 
CHR$ (d) ; :NEXT 

22441 y=y-1:1F y=6 THEN 22450 ELSE DEV 
22431 


22450 RETURN )Fe 


10 ?------ orthochiffre ------ 

20 *---- par CANTILLAC D.----- )LB 
30 --------- 05/88 ---------- )LC 
50 INK O,1:INK 1,24:INK 2,10:INK 3, DEP 
24,10 

100 HODE 1 >GK 
120 TAG:xp=160 >YG 
‘130 tit$-"ORTHOCHIFFRE" >UC 
140 FOR n=1 TO 12:G0SUB 60000:t$=MI >QY 
D$(tit$,n,1)+" *:GOSUB S5000:NEXT 

150 t$=" "+STRINGS(14," ") >UU 
160 FOR x=-198 TO 170 STEP 8:MOVE x >YJ 
,286:PRINT t$; :NEXT 

170 ti$="par CANTILLAC D.":n=0 >AK 
180 FOR x=176 TO 432 STEP 16:G0SUB )FM 
62200:GOSUB 62100:HOVE x,200:n=n+1: 
PRINT HID$(ti$,n,1);:NEXT 

190 a=19:b=21:c-11:d=13 >RP 
200 FOR n=1 TO 10:WINDOW#1,a,b,c,d: DUE 
PAPER#1,1:CLS#1 

210 a=a-2:b=b+t2:c=c-1:d=d+1 >VZ 
220 NEXT >DK 
300 TAGOFF >UH 
320 MODE 1:PAPER#41,0 >NG 


4900 LOCATE 8,2:PRINT"ORTHOCH 
IFFRE" 
4910 LOCATE 7,1:PRINT CHR$(150) ;STR 
ING$ (25,154) ;CHR$ (156) 
4920 LOCATE 7,2:PRINT CHR#(149) :LOC 
ATE 33,2:PRINT CHR$(149) 
4930 LOCATE 7,3:PRINT CHR$(147) ;STR 
ING$ (25,154) ;CHR$ (153) 
5000 FOR qaz=4 TO 25:LOCATE 1,qaz:P 
RINT CHR$(18) :NEXT:WINDOW43, 2, 39,24 
,25:WINDOW#2,2,39, 4,4 
5005 nbpb=0:n0y-0:nbpbj=0 JW 
5010 LOCATE 5,6:PRINT"VOULEZ-VOUS : >LZ 
*:CLS#3:PRINT#3, "choix par € ESPACE 
> puis < RETURN )* 


5050 a$=" APPRENDRE ":b$=" JOUER ": >NT 
c$=" FIN" 

5080 x=3:y=1:z=1:5=0 >PG 
5100 LOCATE 10,12:PEN x:PRINT a$ >ZX 
5110 LOCATE 10,14:PEN y:PRINT b$  »ZC 
5120 LOCATE 10,16:PEN z:PRINT c$  >ZH 


5200 IF INKEY(47)€>-1 THEN 5300 ELS >RY 
E IF INKEY(18)>-1 THEN 5500 ELSE 5 








Le mode “apprendre” permet d’imposer 
à l’ordinateur un nombre de son choix 
de dix chiffres au maximum. Plus de dix 
chiffres ne présentant plus d’intérêt pé- 
dagogique. Aussitôt le nombre affiché, 
la réponse apparaît. 

Le mode “jouer” propose le tirage d’un 
nombre (10 chiffres maximum) d’une fa- 
çon complètement aléatoire et à la ma- 
nière du jeu télévisé “Des chiffres et des 
lettres”. Le programme accepte n’importe 
quel format de réponse (majuscules ou 
minuscules, espace ou non, et ne tient pas 
compte de symboles comme tiret, virgule 
ou point). La réponse n’est considérée 
comme fausse que dans le cas d’une er- 
reur d'orthographe. 

En cas d'erreur, le programme propose 
de refaire un essai ou de donner la solu- 
tion. Une notation simple s’effectue au 
fil de l’exercice mais repart à zéro si on 
change de mode. 

L'auteur reste à l’entière disposition des 
éventuels usagers et à l’écoute de toutes 
les suggestions. 


© 
200 
5300 s=st1:1F 5=3 THEN 5-0 )UB 
5350 1F 5=0 THEN x1=3:y=1:z=1 D 
5360 IF s=1 THEN x=1:y=3:z:1 )B 
5370 IF s=2 THEN x=1:y=1:z-3 )WD 


5400 FOR ghj=0 TO 400:NEXT:G0TO 510 >DC 
0 


5500 IF x=3 OR y=3 THEN FOR qaz-6 T >KY 
0 23:LOCATE 1,qaz:PRINT CHR$(18) :NE 
1T:GO0TO 10000 

5600 MODE O:PRINT:PRINT:PRINT:PRINT EU 
PRINT * À LA PROCHAINE":FOR asdf 

=0 TO 3000:NEXT:CALL 0 

10000 CALL &BB03:CLS#3:PEN 1:FOR ty >IU 
=1 TO 10:ch$(ty)="":ch(ty)=0:reps(t 
y)="*:NEIT ty:LOCATE#3, 4,2: INPUT#3, 
“AVEC COMBIEN DE CHIFFRES ? :°,gros 

$ 

10020 IF gros$="0" THEN LOCATE 10,1 >GB 
O:PEN 3:PRINT “PAS TROP DIFFICILE ? 
22*:GOSUB 61000:G0T0 10900 

10030 IF LEFT$(gros$,1)="-" THEN LO >QG 
CATE 10,10:PEN 3:PRINT "J'AI DIT CO 
MBIEN !!!":GO0SUB 61000:G0T0 10900 


À 





v 13499 ? 


10040 1F VAL(gros$)=0 THEN LOCATE 1 
0,10:PEN 3:PRINT "J'AI DIT COMBIEN 
111%: GOSUB 61000:G0T0 10900 
10060 IF VAL(gros#)>10 THEN LOCATE 
13,10:PEN 3:PRINT "C'EST TROP !11°: 
GOSUB 61000 ELSE gros=VAL(gros$) :G0 
TO 11000 
10900 FOR que:1 TO 2000:NEXT:LOCATE 
10,10:PRINT SPACES (30) :LOCATES3, 33 
,2:PRINT#3, SPACES (4) :GOTO 10000 
11000 a=(FIX((40-((2tgros)-1))/2))- 
1 
11050 WINDOVH1,a,at(2#gros)+2,6,8 AG 
11100 PAPER#1,1:PEN#1,0:CLS#1:PRINT QC 
41,CHRS (150) ;STRINGS ((22gros)+1, 154 
) ;CHRS (156) ; :PRINTE1, CHR$ (149) ; SPC 
(22gros)+#1) ;CHR$ (149) ; :PRINTA1, CHR$ 
(147) ;STRINGS ((22gros)+1, 154) :CHRS( 


153); 
11140 *------- selection option -- >DC 
11150 x1=0:1F x=3 THEN 13500 JUA 


11200 FOR b=1 TO gros:CLS#3:PRINT#3 >XU 
," APPUIE SUR LA BARRE CESPACE) PEN 
DANT ";:PRINT#3,"LE TEMPS QUE TU VE 
UX PUIS RELACHE -LA"; 

11220 RANDOMIZE(TIME) 

11222 n=CINT(RND49) 

11240 IF INKEY(47)-0 THEN 12000 ELS 
E 11240 

12000 WHILE INKEY(47)-0:c=20:G0SUB WF 
13000 :WEND:CLS83 

12100 c=c+140:G0SUB 13000:1F c>600 >TF 
THEN GOSUB 62100:GO0T0 13110 ELSE 12 

100 


13000 n=nt1:1F n=10 THEN n-0 )VX 
13010 xx=(2#gros)-x1:LOCATE# 1, xx,2: >EH 
PRINT#1,n;:GO0SUB 62000 

13080 FOR bna-=0 TO c:NEXT bna > 
13100 RETURN >LH 
13110 ch(b)=n >GG 
13120 xi=xit2 >HA 
13130 NEXT b:GOTO 14950 RE 
13497 ? >EX 


13498 ’-choix des chiffres (apprend >FA 
re)-- 


>FB 


13500 FOR b=i TO gros 
13505 CLS43:usx$-"":LOCATES3,4,1:PR >UU 
INT#3, "CHOISIS LE CHIFFRE No *;b 

13510 wsx$=INKEYS:1F usx$="" THEN 1 DFA 
3510 

13520 IF ASC(usx$)C48 OR ASC(usx$)) 
57 THEN 13505 ELSE ch(b)=VAL(usx$) 
13530 xx=(2tgros)-xt:LOCATE# , xx, 2: 
PRINT#,ch(b) 

13540 xi=xi+2 

13550 NEXT b 

14950 repx$(1)="nilliards ":repx$(2 >ZR 
=*aillions “:repx$(3)="aille " 


14997 >FF 
14998 ? --------- 10e chiffre --- >FG 
14999 >FH 
15000 IF ch(10)=0 THEN rep$(10)-="*: KE 


GOTO 15200 

15010 RESTORE 50000:FOR d=0 TO 9:RE >Wy 
AD ecrit#(d):NEXT 

15015 IF ch(10)=1 THEN rep$(10)="un >VZ 


ailliard “:repr$(1)="":GOTO 15200 
15020 rep$(10)=ecrit$(ch(10)) >VA 
15197 )EJ 
15198 * ---------- Se chiffre ----- >EK 
15199 ? )FA 


15200 IF ch(9)=0 THEN rep$(9)="":G0 >HX 
TO 15400 

15210 RESTORE 50005:FOR e=0 TO 9:RE >WF 
AD ecrit$(e):NEXT 

15215 IF ch(9)=1 THEN rep$(9)="cent >QL 
":GOTO 15400 

15220 rep#(9)=ecrit#(ch(9))+"cent " DEL 
:1F ch(8)=0 AND ch(7)=0 THEN rep#(9 


)=ecrit$(ch(9))+*cents " 

15397 ? DFA 
15398 "---------- Be chiffre ------ )FB 
15399 ? >FC 


15400 IF ch(8)=0 OR ch(8)=1 THEN re >VC 
p$(8)="":G0T0 16000 

15420 RESTORE 50030:FOR f=0 TO 9:RE >WJ 
AD ecrit$(f):NEXT 

15440 rep$(8)=ecrit$(ch(8)):1F ch(8 >LR 
)=8 AND ch(7)=0 THEN rep$(8)="quatr 


e vingts * 

15997 ? >FG 
15998 ? --------- 7e chiffre ------ >FH 
15999 ? >FJ 


16000 IF ch(7)=0 AND ch(8)C>1 AND c >Dy 
h(8)>7 AND ch(8)€>9 THEN rep#$(7)=" 
*:G0T0 16200 

16020 IF ch(8)=1 OR ch(8)=9 THEN RE NN 
STORE 50010:FOR g-0 TO 9:READ ecrit 








#(g):NEXT:rep#(7)=ecrit#(ch(7)) 

16040 IF ch(8)=7 THEN RESTORE 50015 >1H 
:FOR h=0 TO 9:READ ecrit$(h):NEXT:r 
ep$(7)=ecrit$(ch(7)) 

16060 1F ch(8)=2 OR ch(8)=3 OR ch(8 >UN 
)=4 OR ch(8)=5 OR ch(8)-6 THEN REST 

ORE 50020:F0R i-0 TO 9:READ ecrit#( 
i):NEXT:rep$(7)=ecrit$(ch(7)) 

16070 1F ch(8)=8 THEN RESTORE 50000 >XH 
:FOR i=0 TO 9:READ ecrit$(i):NEXT:r 
ep$(7)=ecrit$(ch(7)) 

16080 IF ch(8)-0 THEN RESTORE 50000 >1C 
:FOR j=0 TO 9:READ ecrit$(j):NEXT:r 
ep$(7)=ecrit$(ch(7)) 

16120 IF ch(9)=0 AND ch(8)=0 AND ch >FR 
(7)=1 THEN repx$(2)="un aillion “:r 


ep$(7)="" 

16197 >EK 
16198 ? ------ 6e chiffre --------- >FA 
16199 ? >FB 


16200 IF ch(6)-0 THEN rep$(6)="":G0 >HT 

TO 16400 

16210 RESTORE 50005:FOR k=0 TO 9:RE >WV 
AD ecrit$(k) :NEXT 

16215 IF ch(6)=1 THEN rep$(6)="cent >QG 
":G0T0 16400 

16220 rep#(6)=ecrit$(ch(6))+"cent " >DE 


16397 )FB 
16398 ’-------- Se chiffre -------- )FC 
16399 ? >FD 


16400 IF ch(5)-0 OR ch(5)=1 THEN re >UD 
p$(5)=**:G0T0 17000 

16420 RESTORE 50030:FO0R 1=0 TO 9:RE >VY 
AD ecrit$(1):NEXT 

16440 rep$(5)=ecrit$(ch(5)):1F ch(5 »>LB 
)=8 AND ch(4)=0 THEN rep$(5)="quatr 


e vingts * 

16997 ? >FH 
16998 ? --------- &e chiffre ------ >)FJ 
16999 ? >FK 


17000 IF ch(4)=0 AND ch(5)C>1 AND c >DG 
h(5)7 AND ch(5)€>9 THEN rep$(4)=" 


, *:G0TO 17200 
17020 IF ch(5)=1 OR ch(5)=9 THEN RE >NP. 


STORE 50010:FO0R a-0 TO 9:READ ecrit 
$(n):NEXT:rep$(4)=ecrit$(ch(4)) 

17040 IF ch(5)=7 THEN RESTORE 50015 >IP 
:FOR 0o=0 TO 9:READ ecrit$(o):NEXT:r 
ep$(4)=ecrit$(ch(4)) 


À 








A 17060 IF ch(5)=2 OR ch(5)=3 OR ch(5 >UG 


)=4 OR ch(5)=5 OR ch(5)=6 THEN REST 
ORE 50020:FO0R p=0 TO 9:READ ecrit${ 
p):NEXT:rep$(4)=ecrit$#(ch(4)) 

17070 IF ch(5)=8 THEN RESTORE 50000 >XP 
:FOR p=0 TO 9:READ ecrit$(p):NEXT:r 
ep$(4)=ecrit$(ch(4)) 

17080 IF ch(5)=0 THEN RESTORE 50000 >1]J 
:FOR q-0 TO 9:READ ecrit#(q):NEXT:r 
ep$(4)=ecrit$(ch(4)) 

17090 IF ch(6)=0 AND ch(5)=0 AND ch >VD 
(4)=1 THEN rep$(4)="" 


17197 ? )FA 
17198 ? ------ de chiffre --------- >FB 
17199 ? >FC 


17200 IF ch(3)=0 THEN rep#(3)="":G0 >HN 

TO 17400 

17210 RESTORE 50005:FO0R r=0 TO 9:RE NL 

AD ecrit$(r):NEXT 

17215 IF ch(3)=1 THEN rep$(3)="cent >QC 
":GOTO0 17400 

17220 rep$(3)=ecrit$(ch(3))+"cent * )EZ 
:1F ch(2)=0 AND ch(1)=0 THEN rep#(3 
)=ecrit$(ch(3))+t"cents * 


17397 * FC 
17398 ?-------- 2e chiffre -------- >FD 
17399 )FE 


17400 IF ch(2)=0 OR ch(2)={ THEN re >UN 
p$(2)=""*:G0T0 18000 

17420 RESTORE 50030:FOR s=0 TO 9:RE >WP 
AD ecrit$(s):NEXT 

17440 rep$(2)=ecrit$(ch(2)):1F ch(2 >KV 
)=8 AND ch(1)=0 THEN rep$(2)="quatr 


e vingts * 

17997 ? )FJ 
17998 ? --------- ie chiffre ------ >FK 
17999 ? >GA 


18000 IF ch(1)=0 AND ch(2)€>1 AND c >CA 
h(2)C37 AND ch(2)€>9 THEN rep$(1)=" 
":GO0T0 19000 

18020 IF ch(2)=1 OR ch(2)=9 THEN RE DNT 
STORE 50010:F0R t=0 TO 9:READ ecrit 
$Ct):NEXT:rep$(1)=ecrit$(ch(1)) 

18040 IF ch(2)=7 THEN RESTORE 50015 >X4 
:FOR v=0 TO 9:READ ecrit$(v):NEXT:r 
ep$(1)=ecrit$(ch(1)) 

18060 IF ch(2)=2 OR ch(2)=3 OR ch(2 >UA 
)=4 OR ch(2)=5 OR ch(2)-6 THEN REST 

ORE 50020:FO0R w=0 TO 9:READ ecrit${ 
w):NEXT:rep#(1)=ecrit$(ch(1)) 

18070 IF ch(2)=8 THEN RESTORE 50000 >IW 
:FOR w=0 TO 9:READ ecrit$(w):NEXT:r 
ep$(1)=ecrit$(ch(1)}) 

18080 1F ch(2)-0 THEN RESTORE 50000 >AD 


:FOR ab=-0 TO 9:READ ecrit$(ab) :NEXT 
:rep#(1)=ecrit$(ch(1)) 

19000 1F ch(10)=0 THEN repx$(1)="" >ZG 
19005 1F ch(9)=0 AND ch(8)=0 AND ch >IY 
(7)=0 THEN repx$(2)="" 

19010 IF ch(6)=0 AND ch(5)=0 AND ch >IK 
(4)=0 THEN repx$(3)="" 

19080 reponse$=" "+rep$(10)trepx$( >Q1 
1)trep#$(9)trep$(8)trep$(7)trepx$(2) 
+rep$(6)trep$(5)+rep$(4)trepx$(3)+r 
ep$(3)+trep#(2)trep$(1) 

19090 IF reponse$=" * THEN reponse >UQ 
$=" zero * 

19100 lon=LEN(reponse$) TD 
19120 h=(1on\34)+1:WINDOW#7,4,37,10 >MP 
,ht10:PAPER#7, 1:PEN#7,0:CLS#7 


19980 ------- selection --------- >FC 
19090 IF x=1 THEN 25000 :°------- s 0 
election --------- 

19997 ? >GA 
19998 *------- apprendre -------- >GB 
19999 ? >GC 
20000 FOR n=1 TO lon NI 


20065 PRINT#7,HID$(reponse$,n,1); >CB 
20070 IF POS(#7)>30 AND (MID$(repon >PL 
se$,n,1)=" * OR MID$(reponsef,n, 1)= 
“-") THEN decal=1 

20080 IF decal=1 AND (HID$(reponse$ >XJ 
10,1)=° * OR NID$(reponse$,n,1)="-" 

) THEN PRINT#7:PRINT#7," ";:decal=0 
20098 GOSUB 62200:FO0R qu=1 TO 100:N >TZ 
EXT:G0SUB 62000 

20100 NEIT n )BB 
20120 CLS#3:PRINT#3," ENCORE UNE >UN 
FOIS ? -->(ESPACE>" :PRINTS3," 
JOUER ? --) RETURN)"; 

20160 IF INKEY(47)C>-1 THEN CLS83:F )BF 
OR qaz=5 TO 23:LOCATE 1,qaz:PRINT C 
HR$(18):NEXT:GOTO 10000 


20180 IF INKEY(18)<)-1 THEN 5000  >Yu 
20190 GOTO 20160 >BD 
24997 ? >FG 
24998 *------- reponse au jeu----  )FH 
24999 ? >FJ 
25000 r$="":rx$="" >LG 
25010 FOR n=1 TO lon >ND 


25020 rrx$=MID$(reponsef$,n,1):1F r1$ >FQ 
= "OR rx$="-" THEN rx$=°" 

25040 r$=r$trx$ >ZB 
25060 NEXT 
25500 nbpb=nbpb+1:LOCATE#2,1,1:PRIN >XD 
T82, "No: ";nbpb 


26000 t$="":tx$="":t1$="" >RC 
26020 CLS#3:PRINT#3, * ECRIS LE >AK 
NOMBRE EN LETTRES" 

26040 CALL &BB03 DE 











26100 LOCATE#7,2,1:LINE INPUT#7,"", )ZG 
ti$:lonti=LEN(tI$) 

26120 FOR n=1 TO lont| >K 
26140 tr$=HID$(t1$,n,1):1F ASC(tr$) DUT 
65 OR (ASC(tx$)290 AND ASC(tx$)<97 

) OR ASC(tx$)>122 THEN tu$="" ELSE 
tu$=LOWERS(tx$) 

26160 t$=t$ttu$ AB 
26180 NEIT >TF 

26300 IF r$=t$ THEN GOSUB 40000 ELS DNT 

E GOSUB 42000 

27520 CLS33:PRINT#3," ENCORE UNE DWC 
FOIS ? --)<ESPACE>":PRINT#3," 

APPRENDRE ? -->(RETURN)"; 

27540 IF INKEY(47)C-1 THEN CLS#3:F )BQ 

OR qgaz=5 TO 23:LOCATE 1,qaz:PRINT C 

HR$(18):NEXT:GO0TO 10000 

27560 IF INKEY(18)C)-1 THEN 5000 YF 


27570 GOTO 27540 >DB 
39997 " >GC 
39998 "------- s/p JUSTE--------- >GD 
39999 GE 


40000 LOCATE 15,15:PRINT CHR#(135); DKD 
STRINGS (9, 131) ;CHR$(139) :LOCATE 15, 
16:PRINT CHR$(133):LOCATE 25, 16:PRI 

NT CHRS(138):LOCATE 15,17:PRINT CHR 
$(141);STRINGS (9, 140) ;CHR$ (142) 

40010 PEN 3:LOCATE 16,16:PRINT"J U  >PG 
S TE":PEN 1 


40020 GOSUB 60000 >LH 
40040 nbpbj=nbpbj+1 >PP 
40050 GOSUB 44000 LT 
41990 RETURN NF 
41997 ? >FF 
41998 --------- s/p FAUX---------- >FG 
41999 ? >FH 


42000 LOCATE 16,15:PRINT CHR$(135); >KD 
STRING$(7,131) ;CHR$(139) :LOCATE 16, 
16:PRINT CHR$(133):LOCATE 24,16:PRI 

NT CHR$(138) :LOCATE 16,17:PRINT CHR 
$(141);STRING$(7, 140) ;CHR$ (142) 

42010 PEN 3:LOCATE 17,16:PRINT"F À MZ 


‘UI":PEN 1 

42020 GOSUB 61000 >LQ 
42030 GOSUB 44000 >LT 
42100 CLS83:PRINT83, * VEUX-TU L >AA 


A SOLUTION --><S)>":PRINTS3," 0 

U REFAIRE UN ESSAI -->(RETURN)"; 

42110 CALL &BBO6:FOR qaz=15 TO 18:L >NP 
OCATE 1,qaz:PRINT CHR$(18) :NEXT 

42120 IF INKEY(18)C>-1 THEN CLS#7:G >LF 


À 





OTO 25500 

42200 WINDOW#6,4,37,17,h+17:PAPERSG6 DVI 
»1:PEN86,2:CLSH6 

42210 FOR n=1 TO lon )NE 
42220 PRINT#6,MHID$(reponse$,n,1); )CX 
42230 IF POS(#6)>30 AND (MID$(repon >PM 
se$,n,1)=" * OR MID$(reponsef,n, 1)= 
“-") THEN decal:1 

42240 IF decal=1 AND (MID$(reponse$ >1J 
91,1): * OR NID$(reponses,n,1)="-" 

) THEN PRINT#6:PRINT#6," ";:decal=0 
42250 GOSUB 62200:F0R qw=1 TO 100:N TT 
EXT:GOSUB 62000 


42260 NEXT )TC 
43990 RETURN >NH 
43997 >FH 


43999 ? >FK 

44000 moyenne=(nbpbj#20)/nbpb:m0y=R >2J 

OUND (moyenne, 1) 

44020 LOCATE#2,24,1:PRINT#2,CHR#(18 >CT 

); "NOTE = *;noy;"/20"; 

44990 RETURN JNJ 

50000 DATA * ","un ", "deux ","trois >EQ 
",*quatre ","cing ","six ","sept " 

»"huit *,"neuf * 

50005 DATA " "," ", "deux ","trois " }AY 
"quatre ","cinq ","six ","sept "," 

huit *, "neuf " 

50010 DATA "dix *, "onze ", "douze ", >JJ 
“treize *, "quatorze *, "quinze ","se 

ize *," dix-sept *,"dix-huit *,"dix- 
neuf " . 

50015 DATA “dix *,"et onze ","douze >QB 
","treize *, "quatorze ","quinze ”, 
“seize ","dix-sept ","dix-huit ","d 
ix-neuf " 

50020 DATA * ","et un ", "deux ","tr >KG 
ois *, "quatre ","cinq ","six ", "sep 

t °,"huit ","neuf * 

50030 DATA " "," ","vingt ","trente >BH 
*, "quarante ", "cinquante ","soixran 

te ","soixante ","quatre vingt ","q 

uatre vingt * 

55000 xp=xpt20:FOR 1=640 TO xp STEP >WH 
-A:HOVE x,300:PRINT t$;:NEXT:RETURN 

60000 ENV 1,5,2,50:ENT -1,3,-10,10 >QU 

,2,10,10:SOUND 1,142,0,5,1,1:RETURN 
61000 ENV 2,4,-2,50:ENT -2,6,2,1,4, DM] 
-2,1:SOUND 1,300,0,15,2,2:RETURN 

62000 SOUND 1,500,1,15,,,30:RETURN )BZ 
62100 ENV 1,4,0,5,7,-2,2:ENT -1,12, >ZL 
1,1,15,-1,1:SOUND 1,110,0,15,1,1,1: 
RETURN 


62200 SOUND 1,200, 10:RETURN Ye 





Le programme 
AMS’ORGUE transforme 
le clavier de votre 6128 ou 
de votre 464 en clavier 
musical qui joue sur deux 
octaves dont les numéros 
sont affichés dans une 


fenêtre d’écran. 
leurs des périodes sonores figu- 


C rent sur les manuels AMSTRAD. 


Vous pouvez utiliser en tout 8 octaves 
numérotées de -4 à +3 et toutes les pé- 
riodes sonores permises entre 3822 (DO 
très grave) et 16 (SI très aigu). 

Pour jouer, pas besoin de définir des ENV 
ou des ENT, il suffit d’utiliser les deux 
rangées de touches supérieures du cla- 
vier. Vous obtiendrez les notes de deux 
octaves. 

La touche TAB donne un DO et la tou- 
che RETURN ou ENTER un Sl. 

Un clavier musical en BASIC... qui ne 
traîne pas, qui ne crachote pas. ÇA 
EXISTE ! 

Tant qu’on (WHILE) appuie sur la tou- 
che (INKEY (N° de touche)=0), cela joue 
un SOUND sur un canal, avec une fré- 
quence et un volume (à fond..). 

Cela donne un son d’orgue très accepta- 
ble qui peut même passer par l’ampli de 
_votre chaîne Hi-Fi. 


es numéros d’octaves et les va- 


La juxtaposition de WHILE:END (une 
par note) permet de se passer de varia- 
ble et d’obtenir ainsi un BASIC ultra 
rapide. 


Le même procédé est utilisé pour chan- 
ger d’octaves (avec les flèches gauche 
et droite). 


10 REM ANS’ ORGUE >PF 
20 REM par Jean Pierre GRAPIN )YV 
30 REM AVRIL 1988 >LM 


100°REM Dessin du clavier et des fe >KZ 
netres. 

110 MODE 2:1INK 1,23:INK 0,0:BORDER >DK 
11 

120 LOCATE 16,11:PRINT CHR$(242)+CH >PL 
R$(154);"{[ POUR CHANGER D'OCTAVE UT 
ILISER LES FLECHES ]°;CHR$(154)+CHR 
$(243) 


130 LOCATE 15,14:PRINT " 1 2 >VA 
4 5 6 8 9 = 

{ CLR' 

140 LOCATE 13,23:PRINT "TAB Q  W >DB 


Attention, cette remarque s’adresse aux possesseurs de 464 : 
La touche ESC arrête le clavier musical car il n’est pas possible d’utiliser 


ON BREAK CONT. 


De plus, il faut taper les lignes suivantes pour un 464. 


125 LOCATE 18,24:PRINT"ESC ne donne aucun son et arrete le prograsse" 


140 LOCATE 13,23:PRINT "TAB Q W E R T Y U 1 O0 


510 GOTO 560 


P € 


À 


[ ENTER° 


Le programme vous place au départ sur 
les deux octaves (0,+1). 

8 ko de BASIC... utilisez COPY ou EDIT 
toutes les lignes se ressemblent. 
AMS'ORGUE n'est qu’un clavier, tout 
simple, pour ceux qui veulent se conten- 
ter de jouer un peu de musique avec leur 
Amstrad. 


ER T Y OU 1 O0 P 


@ [ RET* 

150 LOCATE 20,2:PRINT "# # # AMS >NK 
ORGUE par J-P GRAPIN # * +” 

160 WINDOW 80,19,62,5,9 >QU 


170 PLOT 1,1:DRAV 639,1,1:DRAV 639, )CH 
399:DRAV 1,399:DRAN 1,1:MOVE 2,2:DR 

AN 636,2:DRAU 636,397:DRAU 3,397:DR 

Au 3,2 

180 ORIGIN 96,60 >GH 
190 FOR i=0 TO 110 STEP 2 QT 
200 DRAUR 448,0,1:MOVER -448,2:NEIT )CC 


210 FOR j=0 TO 224 STEP 224:F0R i=3 >NB 
2 TO 64 STEP 32 


220 MOVE i-12+j,48 > 
230 FOR h=48 TO 110 STEP 2 >RR 
240 DRAVR 26,0,0:MOVER -26, 2 SVT 
250 NEIT h,i,j >UK 
260 FOR j=0 TO 224 STEP 224:FOR 1=1 >QH 
28 TO 192 STEP 32 

270 MOVE i-12+j,48 >] 
280 FOR h=48 TO 110 STEP 2 >RI 
290 DRAVR 26,0,0:HOVER -26,2 jt 
300 NEIT h,i,j DUF 


310 MOVE 0,0:FOR 1=1 TO 15 
320 DRAUR 0,110:MOVER 0,-110:DRAUR 
32,0:NEIT 


330 MOVE 0,0:DRAVR 447,0,1:DRAUR O0, DJY 
110:DRAUR -448,0:DRAUR 0,-111 

340 MOVE 46,186:DRAUR 354,0,1:DRAUR KL 
0,90:DRAUR -354,0:DRAWR 0, -90 

500 REM changements d'octave >QH 
510 ON BREAK CONT:GOTO 560 >vC 
520 CLS:PRINT:PRINT:PRINT * Octave UD 
Gauche : -4 / Octave droite : -3* 
:GO0TO 1000 

530 CLS:PRINT:PRINT:PRINT " Octave UD 
Gauche : -3 / Octave droite : -2" 
:GOTO 2000 

540 CLS:PRINT:PRINT:PRINT * Octave >UD 
Gauche : -2 / Octave droite : -1" 
:G0T0 3000 

550 CLS:PRINT:PRINT:PRINT * Octave UP 
Gauche : -1 / Octave droite : 0" 
:GOT0 4000 

560 CLS:PRINT:PRINT:PRINT " Octave >UP 
Gauche : 0 / Octave droite : +1" 
:GOT0 5000 

570 CLS:PRINT:PRINT:PRINT " Octave UF 


Gauche : +1 / Octave droite : +2" 








à es A Se dé 
ne ER 
>P 


:GOTO 6000 

580 CLS:PRINT:PRINT:PRINT * Octave UK 
Gauche : +2 / Octave droite : +3" 
:G0T0 7000 


590 REX prograssation des touches DDR 
1000 CALL &BBOG:WHILE INKEY(68)-0:5 >BQ 
OUND 1,3822,1, 15 :WEND 
1010 WHILE INKEY(64)=0:SOUND 1,3608 >NB 
1, 15: VEND 
1020 WHILE 
1515: VEND 
1030 WHILE 
19 15:WEND 
1040 WHILE 
1, 15:VEND 
1050 WHILE 
1060 WHILE 
1, 15:VEND 
1070 WHILE 
1, 15:WEND 
1080 WHILE 
»1,15:VEND 
1090 WHILE 
1, 15:WEND 


INKEY(67)=0:SOUND 1,3405 >NA 
INKEY(65)=0:SOUND 1,3214 DNX 
INKEY(59)=0:SOUND 1,3034 >NB 


INKEY(57)=0:WEND DL 
INKEY(58)=0:SOUND 1,2863 >PD 


INKEY(56)=0:SOUND 1,2703 >ND 
INKEY(50)=0:SOUND 1,2551 >NZ 


INKEY(49)=0:SOUND 1,2408 >PB 










CPC HORS-SERIE 13 


Offre excoplionre Île 
DISC CPC HS 5 


Pour l'achat de la disquette, nous 





3 1100 WHILE 
1, 15:WEND 
1110 WHILE 
»1,15:WEND 
1120 WHILE 
1, 15:WEND 
1130 WHILE 
1140 WHILE 
1, 15:WEND 
1150 WHILE 
1, 15:VEND 
1160 WHILE 
1, 15:WEND 
1170 WHILE 
»1,15:VEND 
1180 WHILE 
1, 15:VEND 
1190 WHILE 
1200 WHILE 
1, 15:VEND 
1210 WHILE 
» L, 15:VEND 
1220 WHILE 
1, 15:WEND 
1230 WHILE 
( 1, 15:WEND 











INKEY(51)=0:SOUND 1,2273 DNU 
INKEY(48)=0:SOUND 1,2145 >NZ 
INKEY(43)=0:SOUND 1,2025 >NR 


INKEY(41)=0:WEND >NC 
INKEY(42)=0:SOUND 2,1911 >NX 


INKEY(40)=0:SOUND 2,1804 NX 
INKEY(35)=0:SOUND 2,1703 >NA 
INKEY(33)=0:SOUND 2,1607 >NC 
INKEY(34)=0:SOUND 2,1517 3NE 


INKEY (32) =0:WEND NN] 
INKEY(27)=0:SOUND 2,1432 DNV 


INKEY(25)=0:SOUND 2,1351 >NU 
INKEY(26)=0:SOUND 2,1276 >NC 


INKEY(24)=0:SOUND 2,1204 >NR 





ANCIENS NUMEROS 
































x Ia: 
I Entourez le(s) numéro(s) choisis. 


joignons gratuitement i FIOPSESNE 
la revue HS 13. l On°2 13F 
I Q n°3,4,5,6,7,8,9,10,11,12 15F 
Q 140 F non abonné "1 
Q 110 F abonné I - Disquettes Hors-série 
Q HS 1,2,3,4,5,6,7,8,9,10,11,12,13 140F 
Revue HS 13 seule Chaque disquette comporte tous les programmes du n° hors-série cor- 
Q15F I respondant. Les abonnés à CPC bénéficient du tarif unitaire de 110 F 
I pour les disquettes. 
Nom : Prénom : E Nom : Prénom : 
Adresse : I Adresse : 
Code postal : Ville : Î Code postal: Ville : 
Date : Signature Signature 


Merci d'écrire en majuscules. Ci-joint un chèque libellé à l'ordre des Editions SORACOM. Retournez le(s) coupon(s) ou une photocopie à Editions SORACOM - La Haie 


de Pan - 35170 BRUZ. 


À 


1240 WHILE INKEY(17)=0:SOUND 2,1136 >NZ 
»1, 15: VEND 

1250 WHILE INKEY(16)=0:SOUND 2,1073 >NZ 
51, 15:WEND 

1260 WHILE INKEY(18)-0:SOUND 2,1012 DNV 
51, 15:WEND 

1270 WHILE INKEY(1)=0:G0T0 530:WEND >DD 
1280 GOTO 1000 >LK 
2000 CALL &BBOG:WHILE INKEY(68)=0:S >BN 
OUND 1,1911,1,15:WEND 

2010 WHILE INKEY(64)=0:SOUND 1,1804 DNY 
1, 15:WEND 

2020 WHILE INKEY(67)=0:SOUND 1,1703 >NA 
1,15: VEND 

2030 WHILE INKEY(65)=0:SOUND 1,1607 >NC 
1, 15:WEND 

2040 WHILE INKEY(59)-0:SOUND 1,1517 >NG 
1, 15:WEND 

2050 WHILE INKEY(57)=0:WEND >WN 
2060 WHILE INKEY(58)=0:SOUND 1,1432 ND 
1,15: VEND 

2070 WHILE INKEY(56)=0:SOUND 1,1351 >NC 
1,15 :VEND 

2080 WHILE INKEY(50)=0:SOUND 1,1276 >ND 
1515: WEND 

2090 WHILE INKEY(49)-=0:SOUND 1,1204 >ND 
1,15: VEND 

2100 WHILE INKEY(51)=0:SOUND 1,1136 DNR 
1,15: VEND 

2110 WHILE INKEY(48)-0:SOUND 1,1073 >NZ 
» 1, 15: VEND 

2120 WHILE INKEY(43)=0:SOUND 1,1012 >NM 
1,15: VEND 

2130 WHILE INKEY(41)-0:WEND JD 
2140 WHILE INKEY(42)=0:SOUND 2,956, >NF 
1,15:WEND 

2150 WHILE INKEY(40)=0:SOUND 2,902, >MD 
1,15:WEND 

2160 WHILE INKEY(35)=0:SOUND 2,851, >ND 
1,15:WEND 

2170 WHILE INKEY(33)=0:SOUND 2,804, >NA 
1,15:WEND 

2180 WHILE INKEY(34)=0:SOUND 2,758, DNL 
1,15:WEND 

2190 VHILE INKEY(32)=0:WEND DK 
2200 WHILE INKEY(27)=0:SOUND 2,716, >MH 
1,15:VEND | 

2210 WHILE INKEY(25)=0:SOUND 2,676, >ND 
1,15:WEND 

2220 WHILE INKEY(26)-0:SOUND 2,638, >ND 
1,15:WEND 

2230 WHILE INKEY(24)=0:SOUND 2,602, >HB 
1,15:WEND 

2240 WHILE INKEY(17)-0:SOUND 2,568, >NH 
1,15:VEND 

2250 WHILE INKEY(16)-0:SOUND 2,536, 








1,15:VEND 

2260 WHILE INKEY(18)=0:SOUND 2,506, >NC 
1,15:VEND 

2270 WHILE INKEY(8)-0:GOTO 520:VEND >DL 
2280 WHILE INKEY(1)-0:GOTO 540:VEND >DG 
2290 GOTO 2000 >HC 
3000 CALL LBBOG:VHILE INKEY(68)=0:S AU 
OUND 1,956, 1, 15:VEND 

3010 WHILE INKEY(64)-0:SOUND 1,902, DME 
1,15:VEND 

3020 WHILE INKEY(67)-0:SOUND 1,851, >ND 
1, 15:VEND 

3030 WHILE INKEY(65)-0:SOUND 1,804, >NA 
1,15:VEND 

3040 VHILE INKEY(59)=0:SOUND 1,758, DNN 
1,15:VEND 

3050 WHILE INKEY(57)=0:WEND >UN 
3060 WHILE INKEY(58)=0:SOUND 1,716, >NH 
1, 15:WEND 

3070 WHILE INKEY(56)-0:SOUND 1,676, >NH 
1,15:VEND 

3080 VHILE INKEY(50)-0:SOUND 1,638, NE 
1, 15:VEND 

3090 WHILE INKEY(49)-0:SOUND 1,602, NE 
1,15:VEND 

3100 WHILE INKEY(51)=0:SOUND 1,568, >NA 
1,15:VEND 

3110 VHILE INKEY(48)=0:SOUND 1,536, DNC 
1,15:WEND 

3120 VHILE INKEY(43)=0:SOUND 1,506, >HD 
1, 15:WEND 

3130 WHILE INKEY(41)=0:VEND VE 
3140 WHILE INKEY(42)=0:SOUND 2,478, NF 
1,15:WEND 

3150 WHILE INKEY(40)=0:SOUND 2,451, >HD 
1, 15:VEND 

3160 WHILE INKEY(35)-0:SOUND 2,426, >NC 
1, 15:WEND 

3170 VHILE INKEY(33)-0:SOUND 2,402, >MD 
1,15:WEND 

3180 WHILE INKEY(34)=0:SOUND 2,379, NL 
1,15:VEND 

3190 WHILE INKEY(32)-0:VEND JUL 
3200 WHILE INKEY(27)=0:SOUND 2,358, >NC 
1,15:VEND 

3210 VHILE INKEY(25)-0:SOUND 2,338, >MH 
1,15:WEND 

3220 WHILE INKEY(26)-0:SOUND 2,319, DNA 
1,15:VEND 

3230 WHILE INKEY(24)=0:SOUND 2,304, >MY 
1,15:WEND 

3240 VHILE INKEY(17)-0:SOUND 2,284, >ND 


PIN 


AC @ 1,15:WEND 





; 3250 WHILE INKEY(16)=0:SOUND 2,268, NF 


1,15:VEND 

3260 VHILE INKEY(18)-0:SOUND 2,253, >NC 
1, 15:WEND 

3270 WHILE INKEY(8)=0:G0T0 530:MWEND >DN 
3280 WHILE INKEY(1)-0:G0T0 550:WEND >DJ 
3290 GOTO 3000 >HE 
4000 CALL LBBOG:VHILE INKEY(68):0:S AU 
OUND 1,478, 1,15:VEND 

4010 VHILE INKEY(64)=0:SOUND 1,451, ME 
1, 15:WEND 

4020 WHILE INKEY(67)=0:SOUND 1,426, DKC 
1, 15:VEND 

4030 VHILE INKEY(65)-0:SOUND 1,402, >HD 
1,15:WEND 

4040 WHILE INKEY(59)=0:SOUND 1,379, >NN 
1,15:WEND 

4050 VHILE INKEY(57)-0:VEND >UP 
4060 WHILE INKEY(58)=0:SOUND 1,358, DNL 
1,15:WEND 

4070 WHILE INKEY(56)=0:SOUND 1,338, NH 
1, 15:WEND 

4080 VHILE INKEY(50)=0:SOUND 1,319, NB 
1,15:VEND 

4090 VHILE INKEY(49)-0:SOUND 1,301, NB 
1,15:WEND 

4100 WHILE INKEY(51)-0:SOUND 1,284, DME 
1,15:VEND 

4110 VHILE INKEY(48)=0:SOUND 1,268, NF 
1,15:WEND 

4120 VHILE INKEY(43)=0:SOUND 1,253, >HD 
1,15:VEND 

4130 VHILE INKEY(41)-0:VEND UF 
4140 VHILE INKEY(42)=0:SOUND 2,239, NB 
1,15:VEND 

4150 VHILE INKEY(40)=0:SOUND 2,225, >MD 
1,15:VEND 

4160 WHILE INKEY(35)=0:SOUND 2,213, DMF 
1, 15:WEND 

4170 VHILE INKEY(33)=0:SOUND 2,201, DMB 
1,15:WEND 

4180 VHILE INKEY(34)=0:SOUND 2,190, >NC 
1,15:WEND 

4190 WHILE INKEY(32)-0:VEND >un 
4200 WHILE INKEY(27)=0:SOUND 2,179, NE 
1,15:VEND 

4210 VHILE INKEY(25)=0:SOUND 2,169, >NC 
1,15:VEND 

4220 WHILE INKEY(26)=0:SOUND 2,159, >ND 
1, 15:VEND 

4230 VHILE INKEY(24)=0:SOUND 2,150, MB 
1,15:WEND 

4240 VHILE INKEY(17)-0:SOUND 2,142, DMF 
1,15:VEND 

4250 WHILE INKEY(16)-0:SOUND 2,134, HG 
1,15:MEND 


4260 WHILE INKEY(18)=0:SOUND 2,127, >ND 


1,15:WEND 


4270 WHILE INKEY(8)-0:GO0T0 540:WEND >DQ 
4280 WHILE INKEY(1)=0:GO0T0 560:WEND >DL 


4290 GOTO 4000 

6000 CALL &BBOG:UHILE INKEY(68)-0:S 
OUND 1,239, 1, 15:VEND 

5010 WHILE INKEY(64)=0:SOUND 1,225, 
1, 15:VEND 

5020 WHILE INKEY(67)=0:SOUND 1, 213, 
1, 15:VEND 

5030 WHILE INKEY(65)=0:SOUND 1,201, 
1, 15:VEND 

5040 WHILE INKEY(59)=0:SOUND 1, 190, 
1, 15:VEND 

5050 WHILE INKEY(57)=0:VEND 


5060 WHILE 
1,15:VEND 
5070 WHILE 
1,15:VEND 
5080 WHILE 
1, 15:WEND 
5090 WHILE 
1,15:WEND 
5100 WHILE 
1, 15:WEND 
5110 WHILE 
1,15:WEND 
5120 WHILE 
1,15:WEND 
5130 WHILE 
5140 WHILE 
1, 15:WEND 
5150 WHILE 
1, 15:WEND 
5160 WHILE 
1,15:WEND 
5170 WHILE 
1,15:WEND 
5180 WHILE 
15: VEND 
5190 WHILE 
5200 WHILE 
»15:VEND 
5210 WHILE 
15: WEND 
5220 WHILE 
15:WEND 
5230 WHILE 
»15:WEND 
5240 BHILE 
15: VEND 
5250 WHILE 
15:WEND 
5260 VHILE 
15:WEND 


INKEY(58)=0:SOUND 1,179, 


INKEY(56)=0:SOUND 1,169, 


INKEY(50)=0:SOUND 1,159, 


INKEY(49)=0:SOUND 1,150, 
INKEY(51)=0:SOUND 1,142, 
INKEY(48)=0:SOUND 1,134, 
INKEY(43)=0:SOUND 1,127, 


INKEY(41)=0:WEND 
INKEY(42)=-0:SOUND 2,119, 


INKEY(40)=0:SOUND 2,113, 
INKEY(35)=0:SOUND 2,106, 
INKEY(33)=0:SOUND 2,100, 
INKEY(34)=0:SOUND 2,95, 1 


INKEY (32) =0:VEND 
INKEY(27)=0:SOUND 2,89, 1 


INKEY(25):0:SOUND 2,84, 1 
INKEY(26)-0:SOUND 2,80, 1 
INKEY(24)-0:SOUND 2,75, 1 
INKEY(17)=0:SOUND 2, 71,1 
INKEY(16)-0:SOUND 2,67, 1 


INKEY(18)=0:SOUND 2,63,1 


>HG 
>AP 


ME 


MF 


>HB 


ONE 


>vq 
>NN 


NL 
NE 
)NE 
>HY 
>KG 
ME 


WG 
>HH 


>HA 
>HH 
>HA 
>MR 


JUN 
> 


>HH 
>MF 
>MJ 
>HH 
>MN 


>HA 








eZ tous 


ù SAR NE 





5270 WHILE INKEY(8)-0:G0T0 550:WEND >DT 
5280 WHILE INKEY(1)-0:GO0T0 570:WEND >DN 
5290 GOTO 5000 

6000 CALL &BBOG6:WHILE INKEY(68)=0:5 


OUND 1,119 
6010 WHILE 
1,15:WEND 
6020 WHILE 
1,15:WEND 
6030 WHILE 
1,15:WEND 
6040 WHILE 
15 :VEND 
6050 WHILE 
6060 WHILE 
,15:WEND 
6070 WHILE 
15: VEND 
6080 WHILE 
15 :WEND 
6090 WHILE 
» 15:WEND 
6100 WHILE 
15: WEND 
6110 WHILE 
15: WEND 
6120 WHILE 
,15:WEND 
6130 WHILE 
6140 WHILE 
15: WEND 
6150 WHILE 
,15:VEND 
6160 WHILE 
15:WEND 
6170 WHILE 
:15:VEND 
6180 WHILE 
15: VEND 
6190 WHILE 
6200 WHILE 
15: VEND 
6210 WHILE 
15 :WEND 
6220 WHILE 
»15:WEND 
6230 WHILE 





15: VEND 
6240 WHILE 
15: WEND 
6250 WHILE 
15: VEND 
6260 WHILE 
15: VEND 


1,15: VEND 


INKEY(64)=0:SOUND 1,113, 
INKEY(67)=0:SOUND 1,106, 
INKEY(65)=0:SOUND 1,100, 
INKEY (59)=0:SOUND 1,95, 1 


INKEY (57) =0: WEND 
INKEY(58)=0:SOUND 1,89, 1 


INKEY (56) 0: SOUND 1,84,1 
INKEY(50)=0:SOUND 1,80, 1 
INKEY(49)=0:SOUND 1,75,1 
INKEY(51)=0:SOUND 1,71,1 
INKEY(48)=0:SOUND 1,67,1 
INKEY(43)=0:SOUND 1,63,1 


INKEY(41)=0:WEND 
INKEY(42)=0:SOUND 2,60, 1 


INKEY (40)=0:SOUND 2,56, 1 
INKEY(35)=0: SOUND 2,53, 1 
INKEY(33)=0:SOUND 2,50, 1 
INKEY(34)=0:SOUND 2, 47,1 


INKEY(32)=0: VEND 
INKEY(27)=0:SOUND 2,45, 1 


INKEY(25)=0:SOUND 2, 42, 1 
INKEY(26)=0:SOUND 2, 40, 1 
INKEY(24)=0:SOUND 2,38, 1 
INKEY(17)=0:SOUND 2,36, 1 
INKEY(16)=0:SOUND 2, 34,1 


INKEY(18)=0:SOUND 2,32,1 


À 


>MJ 
AN 


>HB 


>HH 


>HA 


>HU 


HR 
)MY 


6270 VHILE INKEY(8)-0:G0T0 560:WEND 
6280 WHILE INKEY(1)-0:G0T0 580:WEND 
6290 GOTO 6000 

7000 CALL &BBOG6:WHILE INKEY(68)-0:5 
OUND 1,60,1,15:WEND 

7010 WHILE INKEY(64)-0:SOUND 
15 :VEND 
7020 WHILE 
,15:VEND 
7030 WHILE 
,15:VEND 
7040 VHILE 
| ,15:WEND 

| 7050 WHILE 
7060 WHILE 
,15:WEND 
7070 WHILE 
,15:WEND 
7080 WHILE 
,15:WEND 
7090 WHILE 
,15:VEND 
7100 WHILE 
,15:WEND 
7110 WHILE 
,15:WEND 
7120 WHILE 
,15:WEND 
7130 WHILE 
7140 VHILE 
19 :WEND 
7150 WHILE 
,15:WEND 
7160 WHILE 
,15:VEND 
7170 WHILE 
, 15:WEND 
7180 WHILE 
,15:VEND 
7190 WHILE 
7200 WHILE 
,15:VEND 
7210 WHILE 
,15:WEND 
7220 WHILE 
15 :WEND 
7230 WHILE 
:15:WEND 
7240 WHILE 
15:WEND 
7250 WHILE 
15 :WEND 
7260 WHILE 
»15:WEND 


1,56,1 
INKEY(67)=0:SOUND 1,53, 1 
INKEY(65)=0:SOUND 1,50, 1 
INKEY(59)=0: SOUND 1,47, 1 


INKEY(57)=0:WEND 


INKEY(58)=0:SOUND 1,45,1 


INKEY(56)=0:SOUND 1,42, 1 
INKEY(50)-0:SOUND 1,40, 1 
INKEY(49)-0:SOUND 1,38, 1 
INKEY(51)=0:SOUND 1,36, 1 
INKEY(48)=0:SOUND 1,34, 1 
INKEY (43)=0:SOUND 1,32, 1 


INKEY (41)=0:WEND 
INKEY(42)=0:SOUND 2, 30,1 


INKEY(40)=0:SOUND 2,28, 1 
INKEY(35)=0:SOUND 2,27,1 
INKEY(33)=0:SOUND 2,25,1 
INKEY(34)=0:SOUND 2,24,1 


INKEY (32) =0:WEND 
INKEY(27)=0:SOUND 2,22, 1 


INKEY(25)=0:SOUND 2,21,1 
INKEY(26)=0:SOUND 2,20, 1 
INKEY(24)=0:SOUND 2,19, 1 


INKEY(17)=0:SOUND 2,18, 1 





INKEY(16)=0:SOUND 2,17,1 


INKEY(18)=0:SOUND 2,16, 1 


)DV 


>DQ 
>NA 
ZE 


>HC 


7270 WHILE INKEY(8)=0:G0T0 570:WEND >DX 


L 7280 GOTO 7000 


>NB 


Il pleut, vous ne savez que 
faire, c’est le moment 
d'allumer votre cher CPC 
et de lancer : 
“CONTACT”. 

Vous passerez alors un bon 
moment de détente à 
chercher une solution 
efficace pour ce satané 
ordinateur, et si vous êtes 
deux, pourquoi ne pas 
jouer l’un contre l’autre ? 







ble pour 
ÉCrC 464 





JOUEUR © VOTRE CHOIX 





D> 10 *# CONTACT # par BARJON G:HARGES " 


26 

20 ? >LB 
30 ‘pour la revue € P C >LC 
40 >LD 
50 ‘presentation du jeu )LE 
60 ? >LF 
70 MODE O:BORDER 16:1INK 0,16 )VR 


80 DIM P(14) 








CONTACT 


omme la plupart des jeux, il vous 
faudra faire le maximum de points 
( | pour gagner. 
Les règles de Contact sont très simples, 
il vous suffit de toucher des pions enne- 
mis pour qu’aussitôt ils se transforment 
en pions amis. 


Simple non ! 


Pourtant vous rencontrerez quelques dif- 
ficultés à vaincre le programme, il vous 
faudra trouver une technique efficace pour 
gagner. 

Une fois l’inévitable présentation et le 
mode d’emploi O/N, l’écran se présente 
de la manière suivante : 

1) En bas de l’écran tenant toute la lar- 
geur et d’une hauteur de 5 lignes, un 
bandeau réservé aux messages tels que 
“JOUEUR X VOTRE CHOIX”... etc. 
2) La partie supérieure est divisée en deux 
parties égales. 

a) A droite un damier numéroté de 1 à 8 
etde A à H soit 8 fois 8 cases. 

Le choix est simple : ex. : Al, A8, F5, 
GI etc. aucune erreur n’est possible, tout 
est géré par l’ordinateur. 

ex. : ainsi la frappe de A9 sera refusée, 
tout comme la frappe de A8 si c’est une 
case occupée. 

b) La partie gauche de l’écran sert à vi- 
sualiser ce qui reste à jouer, les points 
respectifs de chaque joueur, le temps et 


la dernière case jouée. 

90 FOR 1-0 TO 14 )WD 
100 READ PCI):INK 1+1,P(L) JUL 
110 NEXT >DH 
120 DATA 0,1,3,6,8,9,15,18 >RF 
130 DATA 20,7,1,15,4,6,15 )RV 
140 CLG O:PAPER O:0RIGIN 320,200  DZY 
150 FOR J=0 TO 103 >LH 
160 1=J#P1/52 >LB 
170 MOVE COS(1)#150, SIN(1)#200 IL 


DUC » 180 DRAW COS(1)#320,SIN(1)#80,3 MOD >FA 


À 





De plus un petit baromètre indique à cha- 
que tour qui gagne, ou s’il y a match nul. 


Deux forces de jeu vous sont propo- 
sées 


- force 1 : vous pouvez placer vos points 
où bon vous semble ; 

- force 2 : là vous serez obligé de “col- 
ler” une case occupée par un pion ami 
ou ennemi, cette obligation rend le jeu 
beaucoup plus difficile. 

Si vous jouez contre l’ordinateur vous 
aurez les “O” et vous commencerez. 

A deux, vous pouvez choisir votre camp 
et celui qui commence. 

Voici les principales variables utilisées, 
je ne vous les cite pas toutes carilyena 
environ 140 et elles sont utilisées plus 
de 1000 fois. 


MO() : contenu d’une case (val 
0,1,3,-1) 
MZ() : adresse d’une case 


NY() ,NX() : coordonnée d’une case 
FLX FLO  : compteur des O et des X 
(reste à jouer) 
SCO ,SCX  :compteur des O et des X 
(gains de chacun) 
J2$=CHR$(202):J3$=CHRS(203) 
Les variables commençant par la lettre 
A suivie de 2 chiffres représentent des 
CHR$(xxx) 
ex.: ASO$=CHRS$(150) 

: A80$=AS50$+AS1$ 
L’essayer c’est l’adopter. 


13+1 

190 NEXT >EF 
200 LOCATE 4,2:PRINT CHR$(22) >IB 
210 PRINT CHR$(1)"BARJON GEORGES" >CA 
220 LOCATE 7,13:PRINT" CONTACT" >AB 
230 LOCATE 14,24:PRINT"(C)1988" >ZG 
240 FOR K=1 TO 2 YVG 
250 FOR J=1 TO 9 JD 
260 FOR 1=1 TO 13 >CD 
270 INK 1,P((J+1)HOD 13) >RU 


< 1220 IF C<65 OR C>72 THEN GOSUB 313 >LZ 





280 NEXT 1,J,K VF < 











290 GOSUB 6740 > 0:G0T0 1170 
300 >RD | 780 GOSUB 3130 >Qp | 1230 CC$="":CC$=INKEYS:1F CC$=""THE >HA 
310 ’voir le menu o/n RE | 790 LOCATE 10,22:PRINT"QUI COMMENCE DMT | N 1230 
320 ? >RF ":J24; 1240 C=ASC(CC$) )YJ 
330 INK 1,1:M0DE 1:GOSUB 5940 VF 800 PRINT" =1 ";,J3$;" =2" >TC | 1250 IF C<49 OR C)56 THEN GOSUB 313 »LG 
340 LOCATE 13,10:PRINT A50$; >yT | 810 CS=INKEYS:1F C$=""THEN 810 >xX | 0:GOTO 1170 
350 PRINT STRING$(15,A54$); >YN | 820 C$-UPPER$(C$) :COM$=C$ JUP | 1260 PRINT CC$ >TH 
360 PRINT A564:LOCATE 13,11:PRINT À >GK | 830 GOSUB 3130 >PK | 1270 C$-C#+CC$ XKC 
494$; 840 LOCATE 12,22:PRINT"FORCE (1) FO >LR | 1280 IF FLT-64 THEN 1400 QD 
370 PRINT SPACES (15) ;A49$ >ug | RCE (2)" 1290 IF FORCE=0 THEN 1400 >RG 
380 LOCATE 13,12:PRINT A49$; >ux | 850 B$=INKEYS:1F B$-""THEN 850 »XD | 1300 TK-0:GOSUB 1590 >PC 
390 PRINT" CONTACT ":A49$ >yT | 860 B$=UPPER$(B$) >LT | 1310 FOR RF-C-11 TO C-9 )Q 
400 LOCATE 13,13:PRINT A49$; syB | 870 IF B$="2"THEN FORCE=1:GO0T0 890 >BH | 1320 IF MOCRF)>0 THEN TK=TK+1 JF 
410 PRINT SPACES (15) ;A49$ >UK 1330 NEXT XJ 
420 LOCATE 13,14:PRINT A47$; suc | 880 IF B$C>"{" THEN 840 >PL | 1340 FOR RF-C+9 TO C+#11 )K 
430 PRINT STRING# (15, 454$) ; >um | 890 IF COM$="1"THEN B1$-J2$:G0T0 92 >CY | 1350 IF MOCRF)20 THEN TK=TK+1 )IA 
440 PRINT A53$:LOCATE 13,20 xp | 0 1360 NEXT >LB 
450 PRINT"HODE D'EMPLOI O/N" > YU 900 B1$-J3$:G0T0 920 >NV | 1370 IF MO(C-1)>0 THEN TK=TK+1 )IT 
460 LOCATE 13,21 >pJ | 910 GOTO 790 >AC | 1380 IF MO(C+1)20 THEN TK=TK+1 )IR 
470 PRINT STRING$(17,A54$); >vyu | 920 GOSUB 3130 >PK | 1390 IF TK=-0 THEN PRINT BEL$:GOSUB DRF 
480 C$=INKEYS: IF C$=""THEN 480 xD | 930 IF B1$-J2$THEN FLI-FLX-1:B3-1  >BP | 3130:G0T0 1150 
490 C$=UPPER$(C#) >LU | 940 IF B1$-J3$THEN FLO-FLO-1:B3-3 )AH | 1400 ORD-0:GOSUB 1750 >PZ 
600 IF C$="O"THEN GOSUB 5430 >vB | 950 IF FLAG=0 THEN 1070 >QE | 1410 GOSUB 1590:GO0SUB 1890 JUJ 
510 ? >RG | 960 LOCATE 31,22:PRINT" * >VC | 1420 ? >XK 
520 ’initialisations des var et din >RH | 970 ? >TG | 1430 "affichage ecran YA 
530 ? >RJ | 980 ’ausique >TH | 1440 ? )YB 
540 HODE 1:G0SUB 5660:G0SUB 5260 >ZU | 990 ? >TJ | 1450 LOCATE 6+(Y#2),1 >PB 
550 DEFINT A-Z:NE=102:GO0SUB 5940 AA | 1000 DATA 110,30,120,40,110,30,140, >BM | 1460 PEN B3:PRINT B1$:PEN 1 >VH 
560 RANDOHIZE TIME:FL1:32:FL0=32 >CC | 40 1470 GOSUB 2450:GO0SUB 2780 >UK 
570 DIM NYCNE),NX(NE) >QD | 1010 RESTORE 1000 >LB | 1480 GOSUB 1970:G0T0 960 >RZ 
580 DIM MO(NE),ZZ(NE) ,HZ(NE) >IY | 1020 FOR 1=1 TO 4 >BE | 1490 ? >YG 
590 DIM TRI(NE) ,NNCNE) , AD(30) >IF | 1030 READ NOTE, TEMP >PY | 1500 ‘efface les x et les o )1] 
600 DIM IN(NE),A(20),B(20) >TU | 1040 SOUND 1,NOTE, TEMP, 15 >VC | 1510 ? )IK 
610 DIM VA(30),VB(30):T!=TIME >1R | 1050 NEIT >KH | 1520 RESTORE 2220 >LN 
620 IF PAS$C)"1"THEN 660 >RC | 1060 ? >1X | 1530 FOR 1-1 TO 64 >LN 
630 GOSUB 1500:G0SUB 2040 >TW | 1070 ’ jeu de l'ordinateur >YA | 1540 READ NO,NN:CC=NO >QA 
640 GOSUB 2680:C$="00" >PC | 1080 ? >YB | 1550 GOSUB 1660:GO0SUB 1750 >UG 
650 GOSUB 2880:G0T0 690 >RY | 1090 :F ORD$="1"AND ORD=1 THEN 1100 >JH | 1560 LOCATE 6+(Y#2),I:PRINT" * )R 
660 GOSUB 2040:LOCATE 1,1:G0SUB 608 >DB ELSE 1150 1570 NEXT:RETURN >HB 
0 1100 T!=TIME:LOCATE 10,22 >UQ | 1580 ? >YG 
670 GOSUB 2680:C$="00":GOSUB 2880 DAF | 1110 PRINT"JOUEUR "B1$;" VOTRE CHOI >HK | 1590 ’change c$ en c (no de case) >YH 
680 ? )TE | X" 1600 ? >IK 
690 ’a qui le tour (les x ou les o >TF | 1120 GOSUB 3320:GO0SUB 1660:GO0SUB 17 >EG | 1610 CB=ASC(C$) >] 
} 50 1620 CBB=ASC(MID$(C$,2,2)) >UG 
700 ? >RH | 1130 GOSUB 1890:G0T0 1430 >TE | 1630 C=((CB-64)#10)+((CBB-48)+1) )IN 
710 LOCATE 4,22 >ID | 1140 ? >1J | 1640 RETURN >FE 
720 PRINT"CONTRE L'ORDINATEUR(1) OÙ DTT | 1150 ? joueur humain >IK | 1650 ? )YE 
À DEUX(2)" 1160 ? >YA | 1660 ’change c en c$ (valeur de cas >YF 
730 B$=INKEYS:1F B$=""THEN 730 >IX | 1170 T!=TIME:LOCATE 10,22 DUY | e) 
740 ORD$-B$ >VF | 11680 PRINT"JOUEUR "B1$;" VOTRE CHOI >JQ | 1670 »YG 
750 1F ORD$="1"0R ORD$="2"THEN 760 HA | 1"; 1680 BC=INT(CC/10) >MR 
ELSE 730 : 1190 C#="":C$=INKEYS: IF C$=""THEN 1 DDC | 1690 C$=CHR$(64+BC) Li] 
760 GOSUB 3130 >0B | 190 | 1700 BBC=(CC-(BC+#10)) >NH 
770 IF ORD$="2"THEN 780 ELSE COH$=" >MY | 1200 C$-UPPER$(C$):C=ASC(C$) >UR | 1710 C1$=CHR$((BBC-1)+48) >RF 
1*:G0T0 830 > 1210 PRINT Cf; DRE D 1720 C$=C$+C1$ >HE 


À 





=0 


3000 FOR K=1 TO 5 >BH 
3010 LOCATE 25,6+K:PRINT" * >vC 
3020 LOCATE 27,6+K:PRINT" ":NEXT  DBB 
3030 IF SCO=SCX THEN 3100 TA 
3040 IF SCO>SCX THEN 3080 TG 
3050 GOTO 3060 JME 
3060 LOCATE 27,7:PRINT J2$ >uC 
3070 LOCATE 25,11:PRINT J3$:RETURN >CD 
3080 LOCATE 25,7:PRINT J3$ >UD 
3090 LOCATE 27,11:PRINT J2$:RETURN )CG 
3100 LOCATE 25,9:PRINT J3$ JUY 
3110 LOCATE 27,9:PRINT J2$:RETURN  >CU 
3120 ? )U 
3130 ‘efface message >IK 
3140 ? >YA 
3150 LOCATE 3,22:PRINT STRING$(37," >FH 
*) 
3160 RETURN >FD 
3170 ? >») 
3180 ‘fin ou rejouer )YE 
3190 ? YF 
3200 FOR 1=200 TO 1 STEP-1 >TQ 
3210 SOUND 2,1,2 >CJ 
3220 SOUND 5,201-1,2 >NW 
3230 NEIT >KK 
3240 FOR FIN=1 TO 1000:NEXT WE 
3250 GOSUB 3130:LOCATE 9, 22 >VA 


3260 PRINT"VOULEZ VOUS CONTINUER 0 >KD 
IN" 

3270 C$=INKEYS$:IF C$=""THEN 3270  >2F 
3280 C$=UPPER$(C$) MF 
3290 IF C$="O"THEN CLEAR:PAS$="1":G DJL 


0TO 550 

3300 CLS:END >JA 
3310 ? >IK 
3320 "recherche de la bonne case ? )YA 
3330 ? >YB 


3340 ML=1:FOR Y=-1 TO 64:ZZ-0:ZZ(Y)= >KT 
0:H5-0 

3350 NO=TRI(Y):NN=NN(Y):1F MO(NO)C> >PB 
0 THEN 3420 

3360 FOR 1=NO-11 TO NO-9:GO0SUB 3440 >HF 
:NEXT 

3370 FOR I=N0+9 TO NO+11:GO0SUB 3440 DHE 
:NEIT 

3380 FOR 1=N0-1 TO N0O+1 STEP 2:G0SU >NV 
B 3440:NEXT 


3390 IF 2Z<10 THEN 3420 )0Y 


3400 IF MS+ZZ)=80 THEN ZZ=2Z+HS DAY 
3410 MZ(ML)=NO:ZZ(HL)=ZZ+NN:ML=ML+1 DFE 
3420 NEIT:G0SUB 3510:G0T0 3700 NY] 
3430 ? )TC 


3440 ’test case des x 
3450 ? 


>" 
)YE 











3460 1F MO(1)-0 THEN RETURN 

3470 IF MO(1)<0 THEN MS=MS+10:RETUR 
N 

3480 1F MO(1)=1 THEN 2Z-ZZ+11:RETUR 
N 

3490 ZZ=Z2+10:RETURN 

3500 

3510 ’tri tgv 

3520 ? 

3530 S=1:A(1)=1:B(1)-HL 

3540 L=A(S):R=B(S):S=S-1 

3550 1=L:J=R:H=ZZ((L+R)/2) 

3560 IF ZZ(1)CH AND ICR THEN 1=1#1: 
GOTO 3560 

3570 IF 2Z(J)3H AND JL THEN J=J-1: 
GOTO 3570 

3580 IF 133 THEN 3610 

3590 2Z=Z2(1):2Z(1)=2Z2(J):22(J)=22 
3600 MZ-MZ(1):MZ(1)=MZ(J):MZ(J)=MZ: 
1=1#1:J=J-1 

3610 1F 1<=J THEN 3560 

3620 IF R-1C-J-L THEN 3650 

3630 1F L<J THEN S=St1:A(S)=L:B(S)= 
J 

3640 L=1:G0T0 3670 | 

3650 IF ICR THEN S-S+1:A(S):1:B(S)= 
R 

3660 R-J 

3670 IF R>L THEN 3550 

3680 IF S>0 THEN 3540 

3690 RETURN 

3700 N=HL+1 

3710 N=N-1:CH=0:FTT-0:ZT-0:G0T0 373 
0 Ë 
3720 C=MZ(N) :CC=C:RETURN 

3730 IF ZZ(N)>=80 THEN 3720 

3740 ZR=INT(ZZ(N)/10) 

3750 IF N€2 THEN N=HL:GO0TO 4810 
3760 ON ZR GO0T0 3790, 3780, 3830, 3810 
3770 GOTO 3860 

3780 1F ZR-2 THEN 3710 

3790 1F FLT>20 THEN BZ-5:G0T0 3860 
3800 BZ-4:G0T0 3860 

3810 GOSUB 4490 

3820 IF FTT-1 THEN 3710 ELSE 3860 
3830 GOSUB 4160 

3840 IF FTT=1 THEN 3710 

3850 ’ 

3860 ‘reprise possible 

3870 ? 

3880 DATA 11,10,9,-11,-10,-9,1,-1 
3890 RESTORE 3880:AD=MZ(N) : Y=0 
3900 READ HH:CH=AD+HH 


À 


>WK 
)EZ 


)EX 


>RN 
>YA 
>YB 
»YC 
>0G 
>TG 
>VY 
KZ 


>KF 


>NJ 
)EE 
>TQ 


>PJ 
>TB 
)DE 


>BD 
>PB 
>PF 
)BQ 
>NZ 
>TB 
)YB 


>IH 


>qn 
)YJ 
>YK 
>ZA 
>YG 
>2G 
>0 


« 





| 


3910 IF CH<12 OR CH>89 THEN 4080 IR 
3920 IF MO(CH)C>0 THEN 4080 UD 
3930 GOTO 4000 >HG 
3940 IF ZR=1 AND ZTCBZ THEN 3720  >YG 
3950 IF ZR=3 AND ZTC5 THEN 3720 {2 
3960 IF ZR=4 AND ZT=4 THEN 3720 >XB 
3970 IF ZT-8 THEN ZZ(N)-0 >TJ 
3980 1F ZT>=ZR THEN 3710 ELSE 3720 AA 
3990 ” >ZD 
4000 ’test de reprise )XG 
4010 ? )XH 
4020 Z5=0:2ZY=1 >AH 


4030 FOR ZI-CH-11 TO CH-9:GOSUB 410 
O:NEXT 

4040 FOR Z1=CH+9 TO CH+11:GO0SUB 410 
0:NEXT 

4050 FOR ZI=CH-1 TO CH+1 STEP 2:G05 
UB 4100:NEXT 

4060 IF 25+ZY-8 THEN ZY=ZY+2S 

4070 IF ZTCZY THEN ZT=ZY 

4080 IF YC7 THEN Y=-Y+1:G0T0 3900 EL 
SE 3940 


>JK 


»JJ 


>PD 


> TH 


>UH 
DHE 


4090 ? YF 
4100 ‘test case des 0 >XH 
4110 ? Del 
4120 IF M0(Z1)-0 THEN RETURN >Wy 


4130 IF MO(Z1)20 THEN ZY-ZY+1:RETUR 
N 


>F4 


4140 25=2S+1:RETURN >QA 
4150 , »YC 
4160 ’test de 3 >YD 
4170 ? )YE 
4180 TT=MZ(N):F1=0:FL=0 >TH 
4190 IF TT-23 OR TT-28 OR TT-73 OR >QC 
TT=78 THEN 4210 

4200 GOTO 4320 >HC 
4210 FLAG=0:TX=0:FOR 1=TT-11 TO TT- >DG 
9 

4220 IF MO(1)20 THEN TX=TX+I x 
4230 NEIT >LA 
4240 FOR I=TT+9 TO TT+#11 >RN 
4250 IF HO(1)20 THEN TX=-TI+1 >WA 
4260 NEIT »LD 
4270 IF MOCTT-1)30 THEN TA=TX+TT-1 >CK 
4280 IF MOCTT+1)20 THEN TI=TI#TT+1 CG 
4290 TIT=TT#3 >VEB 


4300 D9=TIT+3:G9=TÂT-3:B9=TXT+30 :H9 
=TIT-30 

4310 IF TX=D9 OR TX=G9 OR TX=H9 OR 
TX=B9 THEN 4460 

4320 IF MOCTT-11)20 THEN F1=1:FL:FL :DF 
+1 

4330 1F MOCTT-9)20 THEN F1-2:FL:FL: 
1 

4340 IF MOCTT+9)>0 THEN F1:3:FL Fl: D. 
1 


>NX 


>RA 


DS 


1730 RETURN DFE < 
1740 ? )YE 
1750 gestion al a2 etc... )YF 
1760 ? >YG 
1770 C$-UPPER$(C$) >HH 
1780 CV=ASC(MIDS(C$,1,1))-64 >VC 


1790 ON CV GOTO 1800, 1810,1820,1830 WH 
,1840, 1850, 1860, 1870 


1800 Y=(VAL(MID$(C$,2))-1):X=3:RETU >FQ 
RN 

1810 Y=(VAL(MID#(C$,2))-1):X=5:RETU DFU 
RN 

1820 Y=(VAL(MID$(C$,2))-1):X=7:RETU DFX 
RN 

1830 Y=(VAL(MID$(C$,2))-1):X=9:RETU DFA 
RN 

1840 Y=(VAL(HID$(C$,2))-1):X=11:RET >GD 
URN 

1850 Y=(VAL(MID$(C$,2))-1):X=13:RET >GG 
URN 

1860 Y=(VAL(HIDS#(C$,2))-1):X=15:RET >GK 
URN 

1870 Y=(VAL(MHID#(C$,2))-1):X=17:RET >GN 
URN 

1880 ? >YK 
1890 ‘est ce une case libre >ZA 
1900 ? >YC 
1910 FOR YT-1 TO 64 >HJ 
1920 IF C=TRI(YT)THEN NO=TRI(YT):G0 >1W 
TO 1930 ELSE NEXT 

1930 IF ORD=1 THEN LOCATE 31,22:PRI >DB 
NT C$:FOR 1=1 TO 800:NEXT 

1940 IF MO(NO)C>0 THEN PRINT BEL$:G >1Q 
OSUB 3130:G0T0 1150 

1950 NY(NO)=6+(Y#2):NX(NO)=X:MO(NO) >RV 
=B3:RETURN 

1960 ? »YJ 
1970 ‘echange >YK 
1980 ? )ZA 


1990 1F B1$=J2$THEN B1$-J3$:B3-3:FL DUR 
0=FLO-1:G0TO 2010 


2000 B1$-J2$:B3=1:FLX=FLI-1 JF 
2010 IF ORD=1 THEN ORD-0 ELSE ORD-1 >BQ 
2020 RETURN >EH 
2030 ? )IH 
2040 ‘lecture no de case )1] 
2050 ? >XK 
2060 RESTORE 2220 >LN 
2070 FOR 1=1 TO 64 >LN 
2080 READ TD, NN >CD 
2090 TRI(1)=TD:NN(I)=NN >TV 
2100 NEIT >KE 
2110 RESTORE 2310 * DLJ 
2120 FOR MK-1 TO 28 DME 
2130 READ VA, VE )BE 
2140 VACMK)=VA:VB(MK)=VB JUA 





2150 NEIT 

2160 RESTORE 2390 

2170 FOR INUT-1 TO 3% 

2180 READ IN 

2190 HO(IN)=-1 

2200 NEXT 

2210 RETURN 

2220 DATA 12,3,13,2,14,2,15,2,16,2, 
17,2,18,2,19,3 

2230 DATA 22,2,23,0,24,0,25,0,26,0, 
27,0,28,0,29,2 

2240 DATA 32,2,33,0,34,1,35,1,36,1, 
37,1,38,0,39,2 

2250 DATA 42,2,43,0,44,1,45,2,46,2, 
47,1,48,0,49,2 

2260 DATA 52,2,53,0,54,1,55,2,56,2, 
57,1,58,0,59,2 

2270 DATA 62,2,63,0,64,1,65,1,66,1, 
67,1,68,0,69,2 

2280 DATA 72,2,73,0,74,0,75,0,76,0, 
77,0,78,0, 79,2 

2290 DATA 82,3,83,2,84,2,85,2,86,2, 
87,2,88,2,89,3 

2300 ” 

2310 ‘val cases pour ! 

2320 ? 

2330 DATA 12,50,13,30,14,30,15,30,1 
6,30,17,30 

2340 DATA 82,50,83,30, 84,30, 85, 30,8 
6,30,87,30 

2350 DATA 22,30, 32, 30, 42,30, 52, 30,6 
| 2,30, 72,30 

: 2360 DATA 29,30,39, 30, 49,30,59, 30,6 
| 9,30, 79,30 

2370 DATA 18,30,19,50, 88,30, 89,50 
2380 ? 

2390 "cases inutilisables 

2400 ? 

2410 DATA 1,2,3,4,5,6,7,8,9,10,11,2 
0,21,30,31 

2420 DATA 40,41,50,51,60,61, 70, 71,8 
0,81,90,91 

2430 DATA 92,93,94,95,96,97,98,99,1 
00 

2440 ? 

2450 ‘test cases adjacentes 

2460 ? 

2470 IF B1$-J2$THEN B2-1:G0T0 2490 
2480 B2=3 

2490 PEN B2 

2500 FOR I=N0-11 TO N0O-9 

2510 IF MO(I)(1 THEN 2540 





» 2520 LOCATE NY(I),NX(1) 


À 


<« 


2530 PRINT B1$:MO(I)=B2 >RK 
2540 NEIT )LC 
2550 FOR I=N0+9 TO NO+11 >RR 
2560 IF MO(1)<1 THEN 2590 >RH 
2570 LOCATE NYCI),NX(1) >RY 
2580 PRINT B1$:HO0(1)=B2 >RQ 
2590 NEXT >LH 
2600 IF MO(NO-1)(1 THEN 2630 JUE 
2610 LOCATE NY(NO-1),NX(NO-1) >YA 
2620 PRINT B1$:HO(NO-1)=B2 d'Al 
2630 IF HO(NO+1)(1 THEN 2660 >VA 
2640 LOCATE NY(NO+1),NX(N0+1) >XH 
2650 PRINT B1$:HO(NO+1)=B2 >WK 
2660 PEN 1 >GD 
2670 ? >YH 
2680 ‘calcul du score NY 
2690 ? >YK 
2700 SC0-0:SCX=0 >LG 
2710 FOR 1-12 TO 89 >LV 
2720 IF MO(1)=1 THEN SCX=SCX+1 >YP 
2730 IF MO(1)=3 THEN SCO-SC0+1 >1G 
2740 NEXT )LE 
2750 FLT-64-(SCX+5C0) Qu 
2760 RETURN >FJ 
2770 ? Del 
2780 ‘scores des x et des o >YK 
2790 ? >ZA 
2800 1F FLX(=0 AND FLO<=0 THEN GOSU >DC 


B 2880:G070 2810 ELSE 2880 

2810 GOSUB 3130 

2820 IF SCX>SCO THEN LOCATE 12, 22:P 
RINT'LES ":J2$;" ONT GAGNES"; 

2830 IF SCXSCO THEN LOCATE 12,22:P 
RINTMLES ";J3$;" ONT GAGNES"'; 

2840 IF SCO=SCX THEN LOCATE 7,22:PR 
INT® MATCH NUL , PAS MAL JOUER "; 


2850 GO0TO 3180 )NE 
2860 RETURN >FK 
2870 ? >TK 
2880 affichage ZA 
2890 ’ >ZB 
2900 TT'=(TIME-T!)/300:TP!=0 >B 


2910 LOCATE 28,3:PRINT USING"#4";FL DER 
0 
2920 LOCATE 37,3:PRINT USING®#4";FL DEC 
1 
2930 LOCATE 28,18:PRINT USING"#8";S >GJ 





C0; 

2940 LOCATE 37,18:PRINT USING"#8";S >FY 
CX 

2950 LOCATE 25,14:TP=TT!#100 NL 
2960 1F FLT-64 THEN PRINT USING"##. >TR 
#4";0:G0T0 2990 

2970 IF TP»9999 THEN TP=9999 JW 
2980 PRINT USING"#8.##";TP/100 >TT 
» 2990 LOCATE 37,14:PRINT C$:T!=0:TT! EG 


4350 1F MOCTT+11)20 THEN F1=4:FL=FL )DU 
#1 

4360 IF FLO1 THEN 4470 >QF 
4370 ON F1 GOTO 4400,4380,4440,4420 >AH 


4380 IF MOCTT-20)=0 OR MO(TT-19)=0 >RH 
OR MOCTT-8)=0 OR MO(TT+2)=0 THEN 44 

60 

4390 GOTO 4470 JNJ 
4400 IF MOCTT-20)=0 OR MOCTT-21)=0 >TK 
OR HO(TT-2)=0 OR MOTT-12)=0 THEN 4 

460 

4410 GOTO 4470 >NB 
4420 IF MOCTT+20)=0 OR MO(TT+21)=0 >TD 
OR HOCTT+2)=0 OR HO(TT+12)=0 THEN 4 

460 

4430 GOTO 4470 >ND 
4440 IF MOCTT+20)-0 OR MO(TT+19)-0 >RA 
OR HO(TT-2)=0 OR MO(TT+8)=0 THEN 44 


4450 GOTO 4470 NF 
4460 FTT=1 XXE 
4470 RETURN >FJ 
4480 >TJ 
4490 "test de 4 >K 
4500 ? >TB 
4510 TT=HZ(N) :FT=0:FTT-0 > 
4520 FOR T=TT-11 TO TT-9 >RD 
4530 IF HO(T)>0 THEN FT=-FT+T NL 
4540 NEIT LE 
4550 FOR T=TT+9 TO TT+11 RE 
4560 IF MOCT)20 THEN FT=FT+#T >WP 
4570 NEIT >LH 


4580 IF MOCTT+1)20 THEN FT=FT#TT+1 BE 
4590 IF HOCTT-1)20 THEN FT=FT#TT-1 BK 


4600 ST=HZ(N)#4 >EF 
4610 IF FT=ST-31 THEN 4700 >TK 
4620 IF FT-ST+31 THEN 4710 >TK 
4630 IF FT=ST-29 THEN 4730 >TY 
4640 IF FT-ST+29 THEN 4720 >TU 
4650 IF FT=ST+7 THEN 4740 TA 
4660 IF FT=ST-7 THEN 4750 TE 
4670 IF FT=-ST+13 THEN 4760 >TU 
4680 IF FT=ST-13 THEN 4770 >TA 
4690 GOTO 4790 >PG 
4700 IF MOCTT-8){1 THEN 4780 ELSE 4 >DG 
790 

4710 IF MOCTT+8)(1 THEN 4780 ELSE 4 DDF 
790 


4720 IF MOCTT+12)€1 THEN 4780 ELSE >DR 
4790 
4730 IF MOCTT-12)<1 THEN 4780 ELSE >DV 
4790 
4740 IF MOCTT-21)<1 THEN 4780 ELSE )DW 
4790 
4750 IF MOCTT+21)<1 THEN 4780 ELSE >DV 








4760 IF MOCTT-19)(1 THEN 4780 ELSE >DF 
4790 
4770 IF MOCTT+19)<1 THEN 4780 ELSE DE 
4790 


4780 FTT=1 >K 
4790 RETURN >GD 
4800 ‘ )TE 
4810 ‘ici on joue le mieux ? >YF 
4820 ? >YG 
4830 FOR HK=2 TO ML MT 
4840 FOR NX=-A TO 28 >MY 


4850 IF MZ(HK)=VACHX) THEN ZZ(HK)=Z >TH 
Z(MK)+VB(HX) 


4860 NEXT:NEIT >LG 
4870 GOSUB 3510 >YA 
4880 N-HL+1 >uH 


4890 N=N-1:ZZ(N)=INT(ZZ(N)/10) )2N 
4900 IF N<=2 THEN N=HL:GO0TO 3720  >ZA 


4910 IF ZZ(N)26 THEN 4890 >RD 
4920 GOTO 4940 >NK 
4930 ? >YJ 
4940 test des trous >K 
4950 ? >ZA 
4960 FOR 2-1 TO 8:AD(Z)=0:NEXT >YJ 
4970 TR=MZ(N) : TZ=0 >ND 
4980 FOR I=TR-11 TO TR-9 )RY 
4990 IF MO(1)=0 THEN TZ=TZ+1:AD(TZ) >FP 
=] 

5000 NEIT KG 
5010 FOR I1=TR+9 TO TR+11 )RE 


5020 IF MO(1)=0 THEN TZ=TZ+1:AD(TZ) DEG 
=] 

5030 NEXT >K 
5040 IF MOCTR-1)=0 THEN TZ=TZ+1:AD( MA 
TZ)=TR-1 

5050 1F HO(TR+1)=0 THEN TZ=TZ+1:AD( DMJ 
TZ)=TR+I 


5060 IF TZ=1 THEN 4890 >PK 
5070 IF TZ>3 THEN 3720 >PE 
5080 ? )YF 
5090 ‘recherche suplesentaire >YG 
5100 ? ou 
5110 ZT=1 >GD 
5120 IF ZT)TZ THEN N=N-1:G0T0 4890 BB 
5130 TRO-=0 >QF 


5140 FOR T=AD(ZT)-11 TO AD(ZT)-9  DZJ 
5150 IF MOCT)<20 THEN TRO=TRO+1 ZE 
5160 NEIT LD 
5170 FOR T=AD(ZT)+9 TO AD(ZT)#+11  >ZK 
5180 IF MOCT)©>0 THEN TRO=TRO+1 >)H 
5190 NEXT >LG 
5200 IF HO(AD(ZT))-1C0 THEN TRO=TR >FG 


À 





+1 
5210 IF MOCAD(ZT))+1C30 THEN TRO=TR >FF 
0+1 
5220 IF TRO=6 AND ZZ(N)C7 THEN 3720 DBE 


5230 IF TRO=5 AND ZZ(N)C7 THEN 3720 DBE 


5240 ZT=ZT+1:G0T0 5120 >RF 
5250 ? TE 
5260 ‘araignee >YF 
5270 ? >TG 


5280 DEFREAL a-z:10=515:Y0=280:R=20 >DQ 


5290 FOR M=1 TO 3 STEP 0.3 >RZ 
5300 PLOT X0+RaM, YO, 1 >PI 
5310 FOR A=P1/4 TO 2#P1+0.1 STEP PI CU 
[L] 


5320 X=R#M#COS (A) +X0 >PH 
5330 Y=R#H#SIN(A)+Y0 >PR 
5340 DRAY X,Y,1:PLOT X0, YO >VG 
5350 DRAV X,Y:NEIT A,N RL 


5360 PLOT 10+5,Y0,1:DRAW 10+5,185  >AA 
5370 LOCATE 33,13:PRINT CHR$(224)  >AN 
5380 LOCATE 33,14:PRINT CHR$(162) AR 
5390 LOCATE 32,14:PRINT CHR$(192); >BM 
5400 PRINT CHR$(196) ;CHR$ (193); > 


5410 RETERN >FD 
5420 ? > 
5430 *’node d'enploi NE 
5440 ? >TF 
5450 MODE 2:LOCATE 23,2 > 
5460 PRINT" REGLE DU JEU DE # CON >MD 
TACT #° 

5470 LOCATE 23,3 )ED 
5480 PRINT"------------------------ )JI 
Smsssssss " 

5490 LOCATE 11,5 EE 


5500 PRINT"LE BUT DU JEU EST DE PRE ZW 
NDRE LE MAXIMUN DE CASES ADVERSES" 

5510 LOCATE 8,7 >TB 

5520 PRINT"IL VOUS FAUT SAVOIR QUE Kw 
LE SIMPLE CONTACT D'UNE CASE TRANSF 

ORME" 

5530 LOCATE 8,9 >TF 
5540 PRINT" IMMEDIATEMENT TOUTES LES >HH 
CASES ADJACENTES EN PIONS DE SON C 
AMP* 

5550 LOCATE 8,13  : >EG 

5560 PRINT"POUR PRENDRE IL VOUS FAU >GF 
T JOUER LIGNE+COLONNE EX:A1,B5..... 

ETC" 

5570 LOCATE 6,15 )EJ 
5580 PRINT"A FORCE (2) IL FAUT TOUC DHJ 
HER UNE CASE OCCUPEE......PAS A FOR 

CE (1)° 

5590 LOCATE 30,19 >LP 


5600 PRINT"ET BIEN JOUER....SVP*  )CT 
5610 LOCATE 25,24 >LG 
5620 PRINT"BONNE CHANCE SUITE ( >HQ 


ENTER)" 
5630 C$=INKEYS:1F C$=""THEN 5630 
5640 RETURN 


5650 ? >YJ 
5660 ‘lettres fines >K 
5670 ? >ZA 


5680 RESTORE 5740 
5690 SYMBOL AFTER 65 
5700 FOR 1:65 TO 90 


5710 FOR J=0 TO 6 >CG 
5720 READ 1:TX(J)=X >N 
5730 NEIT >LG 
5740 SYMBOL 1,T2(0),T1(1),TX(2),TI( DBL 
3),T1(4),7TX(5),T1(6) 

5750 NEXT >LJ 
5760 RETURN >GB 


5770 DATA 24,36,66,126,66,66,66,124 MY 
,34,34,60, 34 

5780 DATA 34,124, 28,34,64,64,64,34, 
28,120 

5790 DATA 36,34, 34, 34,36, 120, 126,64 >GR 
,64,124 

5800 DATA 64,64,126,126,64,64,124,6 KG 
4,64,64,28 

5810 DATA 34,64,78,66,34,28,66,66,6 DHN 
6,126,66 

5820 DATA 66,66,28,8,8,8,8,8,28,14, DKG 
4,4,4,4,68 

5830 DATA 56,66,68, 72,112, 72,68,66, HN 
64,64,64 

5840 DATA 64,64,64,126,66,102,90,90 >J1 
,66,66,66 

5850 DATA 66,98, 82, 74, 70,66,66,60,6 KQ 
6,66,66,66 

5860 DATA 66,60,124,66,66,124,64,64 >FQ 
,64,60 

5870 DATA 66,66,66, 74,68,58, 124,66, )JP 
66,124, 72 

5880 DATA 68,66,60,66,64,60,2,66,60 >GL 
,62,8,8 

5800 DATA 8,8,8,8,66,66,66,66,66,66 >JX 
,60,66,66 

5900 DATA 66,36, 36, 24, 24,66,66,66,9 DHT 
0,90, 102 

5910 DATA 99,66,66, 36, 24,36,66,66,3 GR 
4,34,34 

5920 DATA 28,8,8,8,126,2,4,24,32,64 DDU 


126 

5930 ? > 
5940 ‘’chr$xxx) en xx$ >ZA 
5950 ? >ZB 
5960 J2$=CHR$ (202) :J3$-CHR$ (203) >) 
5970 A49$-CHR#(149):A47$-CHR$(147) DAZ 





5980 A50$=CHR$ (150) :A51$=CHR$(151) 
5990 A53$-CHR$ (153) :A54$=CHR$ (154) 
6000 A55$=CHR$ (155) :AS68-CHR$ (156) 
6010 A57$=CHR#(157) :A5B$=CHR$ (158) 
6020 A59$=CHR$ (159) :BEL$=CHR$ (7) 
6030 A80$=A54$+A588$:AB1$=A54$+A56$ 
6040 AB2$-A54$+A598:A839$=A54$+A57$ 
6050 A84$-A549+A55$:AB5$=A54$+A53$ 
6060 A86$-A49$+" ":RETURN 

6070 ? 

6080 ‘dessin du jeu 

6090 ? 

6100 PRINT TAB(6); "12345678" 


6110 PRINT TAB(5),A50$;:FOR Y=1 TO 
7 

6120 PRINT A80$;:NEXT:PRINT A81$ 
6130 FOR Y=1 TO 7:PRINT TAB(5); 
6140 FOR 1-1 TO 9:PRINT A86$; 

6150 NEIT:PRINT TAB(5);A51$; 

6160 FOR 1=1 TO 7:PRINT AB2$; :NEIT 
6170 PRINT A83$:NEXT:PRINT TAB(5); 
6180 FOR 1=1 TO 9:PRINT AB6$; :NEXT 
6190 PRINT TAB(5);A47$;:FOR 1=1 TO 
7 

6200 PRINT AB4$;:NEXT:PRINT AB5$ 
6210 FOR Y=1 TO 8:LOCATE 3, (Y#2)+1 
6220 PRINT CHR$(64+Y) :NEXT 


WW 
6230 LOCATE 5,19:PEN 1:PRINT CHR$(2 >FJ 
4); 


6240 PRINT'#scontact#"; >ZH 
6250 PRINT CHR$(24):PEN 3 >TU 
6260 LOCATE 1,20:PRINT A50$; )W 


6270 PRINT STRING$(38,A54$);:PRINT HA 
A56$ 

6280 FOR 1-21 TO 23:LOCATE 1,1 )B 
6290 PRINT A49$;:PRINT TAB(40);:PRI >KH 
NT A49$ 

6300 NEXT:LOCATE 1,1:PRINT A47$; DAT 
6310 PRINT STRING#(38,A54$);:PRINT >GA 
A534 

6320 PEN 1:LOCATE 24,1:PRINT CHR$(2 DFG 
4); 

6330 PRINT"il reste a jouer" ;CHR$(2 >LZ 
4) 

6340 LOCATE 24,16:PRINT CHR$(24);  DAZ 
6350 PRINT"total des points";CHR$(2 > 
4) 

6360 LOCATE 24,13:PRINT A50$ JR 
6370 LOCATE 25,13:PRINT STRING$(5,A DHL 
54%); 


6380 PRINT A56$:LOCATE 24,15 HE 
6390 PRINT A47$:LOCATE 25,15 WG 
6400 PRINT STRING$(5,A54$); ul 


À 


6410 PRINT A53$:LOCATE 24,14:PRINT )GY 
A49$ 


6420 LOCATE 30,14:PRINT A49$ JW 
6430 LOCATE 36,13:PRINT A50$ NT 
6440 LOCATE 39,13:PRINT A56$ HD 
6450 LOCATE 36,15:PRINT A47$ >) 
6460 LOCATE 39,15:PRINT A53$ ME 


6470 LOCATE 37,13:PRINT STRINGS(2,A HN 
548) ; 
6480 LOCATE 37, 15:PRINT STRINGS(2,A >HQ 
544); 


| 6490 LOCATE 36,14:PRINT A49$ D 
6500 LOCATE 39,14:PRINT A49$ > 
6510 LOCATE 25,3:PRINT J34;" =" > 
6520 LOCATE 34,3:PRINT J2$;° =" >Th 
6530 LOCATE 25,18:PRINT J3$;" ="  >ZY 
6540 LOCATE 34,18:PRINT J2$;" ="  >ZY 
6550 LOCATE 24,2:PRINT A50$ NT 


6560 LOCATE 25,2:PRINT STRING$(15,A >HM 
54$); 
6570 LOCATE 39,2:PRINT A56$ JvH 
6580 LOCATE 24,4:PRINT A47$ VE 
6590 LOCATE 25,4:PRINT STRING$(15,A DHT 
54$); 


6600 LOCATE 39,4:PRINT A53$ )VA 
6610 LOCATE 24,3:PRINT A49$ )VZ 
6620 LOCATE 39,3:PRINT A49$ VG 
6630 LOCATE 24,17:PRINT A50$ WW 
6640 LOCATE 25,17:PRINT STRING#(14, DJD 
A54$); 

6650 LOCATE 39,17:PRINT A56$ NL 
6660 LOCATE 24,19:PRINT A47$ > 
6670 LOCATE 25,19:PRINT STRING$(15, >JK 
A54$); 

6680 LOCATE 39,19:PRINT A53$ JUN 
6690 LOCATE 24,18:PRINT A49$ Jun 
6700 LOCATE 39,18:PRINT A49$ > 
6710 FOR 1=1 TO S:LOCATE 26,6+1 > 
6720 PRINT A49$:NEXT:RETURN )1Z 
6730 ? NT] 
6740 ’ausique >TK 
6750 ? >ZA 
6760 RESTORE 6830 >" 
6770 FOR 1=1 TO 25 >LI 
6780 READ N >TG 
6790 SOUND 1,N,35 >LU 
6800 NEXT >LF 
6810 SOUND 1,142, 100 DNE 
6820 RETURN >FK 


6830 DATA 95,95,142,127,119,106,,95 >DX 
85 
6840 DATA 119,95,95,119,95,95,142,1 >CY 
19 
6850 DATA 142,179,119,142,142,106,1 DCI 
19 


6860 DATA 127,-1 >TH 


DISCOVER 








Det DWORLAR 


Ce programme possède les 
caractéristiques suivantes : 


° “cartographie” d’une disquette/localisation d’un 


fichier 


. restauration de fichiers effacés avec indication de la 


possibilité de l’opération 
- effacement de fichiers 


- indication de tous les paramètres d’un fichier 


LE FONCTIONNEMENT 


1 faut taper DISCOVER.BAS et 

DISCOVER.DAT, puis lancer ce der- 

nier afin d'obtenir le programme en 
langage machine DISCOVER.BIN. 
Après chargement du logiciel, un mes- 
sage s’affiche invitant à introduire la 
disquette à “traiter” dans le lecteur, un 
autre message en demande le format. 


IMPORT ANT : 

— la disquette ne doit pas être protégée 
contre l’écriture (elle ne risque rien de 
toute façon) 

— à partir de cet instant, elle ne doit plus 
quitter le lecteur jusqu’à la fin des opé- 
rations. Une sécurité est en place pour 
tester si c’est la bonne disquette et ainsi 
ne pas écraser un catalogue par erreur mais 
ce n’est pas une raison et cela évitera des 
scrollings intempestifs de l’écran. 
S’affiche ensuite une page catalogue qui 
n’a rien de comparable à celui obtenu avec 
l'instruction CAT car, ici même les fi- 
chiers effacés apparaissent. Il suffit alors 
de taper le n° du fichier que l’on veut 
effacer/restaurer/localiser ou sur lequel 
on souhaite des renseignements puis de 
valider avec ENTER. 

On obtient alors un écran semblable à celui 
de la figure 1. 

Dans la partie gauche se trouve la “car- 
tographie” piste par piste et secteur par 
secteur avec : 


— en blanc, les secteurs non utilisés ; 

— en grisé, les secteurs affectés à des fi- 
chiers non effacés ; 

— en noir, les secteurs du fichier dont le 
n° a été tapé précédemment ; 

— en hachuré (voir fig. 3), des secteurs 
appartenant à la fois à un fichier non ef- 
facé et à un fichier effacé (ce dernier ne 
peut donc plus être récupéré) ; 

— dans les parties droite et inférieure de 
l’écran se trouvent les renseignements sur 
le fichier indiqué ; 

— le n° USER sera remplacé par un ? si 
le fichier est effacé ; 

— le nombre de secteurs et de blocs est le 
nombre réellement occupé et non le 
nombre arrondi par AMSDOS ; 

— dans le cas d’un fichier ASCII PUR 
(OPENOUT); les mentions de la partie 
inférieure sont remplacées par “FICHIER 
ASCIP” ; 

— le nom qui apparaît en haut est celui 
trouvé dans le catalogue, celui qui appa- 
raît en bas est celui qui figure dans (ou 
dans ce qui devrait être) le HEADER. 


LES OPTIONS 


Maintenant, 4 choix sont possibles, cha- 
cun correspondant à une touche de fonc- 
tion. 

— FICHIER touche F1 : retour à la page 
catalogue pour choisir un autre fichier. 
Ce retour se faisant par commutation de 
pages-écrans, il est quasi instantané. 


À 





— STATUT touche F2 : changement de 
statut du fichier indiqué. S’il était effa- 
cé, il sera à nouveau opérationnel et in- 
versement. Une confirmation (touche O/ 
N) est demandée puis si O(ui) est action- 
née, le logiciel retourne à la page catalo- 
gue. 

— STOPPER touche F3 : “fermeture” de 
la disquette en cours. Ce n’est qu’à ce 
moment que les modifications deviennent 
définitives. 


Par mesure de sécurité, le logiciel véri- 
fie que la disquette qui se trouve à ce 
moment dans le lecteur est bien la même 
que celle du début. Sinon, un message 
signale l’erreur et invite à corriger. On 
peut ensuite traiter une autre disquette ou 
stopper le programme (CALL 0). 

— IMPRIMER touche F4 : hardcopy de 
l’écran (voir exemples joints) 
L'impression peut être stoppée momen- 
tanément en appuyant une fois sur ESC. 
Elle pourra ensuite être reprise en pres- 
sant une touche ou définitivement stop- 
pée en pressant à nouveau ESC (étein- 
dre l’imprimante pour la remettre à zéro 
avant de redemander une autre hardco- 


py). 


TERMES TECHNIQUES 


Les termes de pistes et de secteurs sont 
maintenant rentrés dans les mœurs (voir 
p. 38 chap. 1 du manuel CPC 6128) mais 
il existe d’autres termes moins connus 
se rapportant également à la division d’une 
disquette. 

Pistes et secteurs sont créés au forma- 
tage, les termes de bloc et d’enregistre- 
ment sont purement artificiels et unique- 
ment gérés par le système d’exploitation. 
Bloc : un bloc est le regroupement de 2 
secteurs soit 2*512 = 1024 octets, juste 
1 ko (le ko ne fait pas 1000 mais 1024). 
C’est l’utilisation du bloc au niveau de 
la gestion du catalogue qui fait qu’un 
fichier est toujours arrondi au ko supé- 
rieur. 


Enregistrement : ce terme remonte à la 
préhistoire de l’informatique, c’est l’uni- 
té de base. 128 octets de long, il en faut 
4 pour faire un secteur. 

‘Header : en gaulois, cela pourrait se tra- 
duire par en-tête. Lorsqu'il sauvegarde 
un fichier, AMSDOS range dans le ca- 
talogue les informations qui lui permet- 
tront de retrouver les données correspon- 
dantes ultérieurement mais il n’y a pas 
la place de ranger quoi que ce soit d’au- 
tre. Il faut pourtant bien stocker le type, 
la longueur... Quelque part, alors, en plus 
des données du fichier, le DOS va sau- 
vegarder un enregistrement supplémen- 
taire qui contiendra toutes ces informa- 
tions. C’est cet enregistfement qui fait 
perdre 1 ko lors de la sauvegarde d’un 
écran qui bien que faisant juste 16 ko, 
en prend 17 sur la disquette. 

Cas particulier, les fichiers ASCII qui eux 
n’ont pas de header et occupent juste la 
place nécessaire. 


LIMITES 
DE LA RESTAURATION 
DE FICHIERS 


Pour bien comprendre dans quel cas on 
ne peut plus récupérer un fichier effacé, 
il faut savoir comment AMSDOS pro- 
cède pour créer et effacer un fichier. 
Commençons par une image. 

Imaginons un propriétaire d'immeuble au 
grand cœur (???). Lorsqu’un locataire ne 
paye pas son loyer, au lieu de le mettre à 
la porte, il se contente de prévenir le 
concierge qu’il faut faire comme si ce 
locataire n’était plus là. Mais le locataire 
est toujours là et s’il régularise sa situa- 
tion, tout s'arrange. 

Par contre, si un nouveau locataire ar- 
rive, cela se complique quelque peu. Le 
propriétaire va avoir besoin d’une boîte 
aux lettres et d’un appartement libre. Il 
ne va pas faire de sentiment et va pren- 
dre ce qui va lui tomber sous la main en 
premier. 

1) Il y a tout ce qu’il faut sans toucher 
au mauvais payeur. Tout va bien pour 
lui. 

2) Il y a un autre appartement libre mais 
pas d’autre boîte aux lettres. Le nouveau 
locataire met son nom dessus et retrou- 
ver le mauvais payeur devient un vrai 
travail de romain. Sans indication, il faut 





frapper à toutes les portes jusqu’à ce qu’on 
le trouve. 

3) Pas d’autre appartement libre, le 
mauvais payeur est mis à la porte et sa 
place est prise. Pas la peine de le cher- 
cher, même si sur la boîte aux lettres fi- 
gurent encore l’étage et le n° de porte, il 
n’habite plus là. 

Si l’on remplace le propriétaire par 
AMSDOS, le locataire qui ne paye pas 
son loyer par le fichier effacé. on ob- 
tient ce qui se passe en réalité : lorsqu’un 
fichier est “effacé”, il n’est pas détruit, 
AMSDOS met juste un code dans le ca- 
talogue pour s’en souvenir et ce fichier 
est récupérable et le restera à coup sûr 
tant qu'aucun locataire , pardon, fichier 
ne sera sauvegardé. L'AMSDOS va avoir 
besoin d’une place dans le catalogue et 
de place sur la disquette et l’on va re- 


tomber dans les mêmes cas que précé- 
demment : 


— le fichier effacé n’est pas modifié, il 
apparaît en noir dans la cartographie de 
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la disquette et est récupérable (fig. 2) ; 
— le fichier disparaît du catalogue; en fait 
il est peut-être récupérable car ses don- 
nées sont peut-être encore sur la disquette 
mais allez savoir où ; 

— le contenu du fichier est partiellement 
ou entièrement écrasé. Certains secteurs 
apparaissent en hachuré sur la cartogra- 
phie (fig. 3). Inutile de le restaurer. 


Remarque : ce n’est pas parce qu’un 


. fichier effacé apparaît entièrement en noir 


qu’il est forcément récupérable. En ef- 
fet, le fichier qui est venu s’inscrire par 
dessus peut avoir été à son tour effacé et 
il ne sera pas pris en compte pour réali- 
ser la cartographie. Ce cas se détecte lors- 
que le nom figurant dans le catalogue et 
celui du header sont différents, le type 
ne correspond plus ou le fichier est cata- 
logué fichier ASCII. Pour ne pas créer 
d’autres cas comme ceux-ci, il faudra 
d’abord faire toutes les récupérations de 
fichiers et ensuite (au besoin) les efface- 
ments si la même disquette nécessite les 
2 opérations. 

N.B. : pour les 464, il faut supprimer les 
CLEAR INPUT (ligne 860). 





DATA 
PARNERE 


… FORMAT : 
FICHIER : 
USER : 0 
8 ENREGISTREMENTS 
FH 2 secTEURS 
D: 1 Brocs 
[| HEADER EN : 

: x SECTEUR 9. 





:BIN 





FORMAT : 

FICHIER : 
USER : ? . 
11e ENREGISTREMENTS 
28 SECTEURS 


DATA 


14 BLOCS 
. HEADER EN : 
* SECTEUR. 2 


* PISTE. + 


U ricur aseIr… 







DISCOVER 


10 MEMORY 16383:LOAD"DISCOVER.BIN" 
20 INK 0,13:INK 1,0:DEFINT b-p:SYMB 
OL &FF,1,1,1,1,1,1,1,8&FF:SYMBOL &FE 
RAB, &55, LAB, &55, LAB, &55, LAB: SYHBOL 
&FD,1,1,1,1,1,1,1,1:SYMBOL &FC,&FE 
 LFE, RFE,RFE, &FE,RFE, &FE:SYMBOL &FB 
.LFF,0,8FF,0,RFF,0,&FF 

30 BORDER O:CALL 34885:MODE 2:CALL 
34888:M0DE 1:boucle-0 

40 LOCATE 2,8:PRINT"INTRODUIRE LA D 
ISQUETTE A TRAIÏTER PUIS" 

50 LOCATE 10,15:PRINT"PUIS PRESSER 
UNE TOUCHE" 

60 CALL &BB18:MODE 1! 

70 LOCATE 14,12:PRINT"1 :format DAT 

A ":LOCATE 14,16:PRINT”2 format SYS 

TEH*":CALL &BB18 

80 1F INKEY(13)0-1 THEN format$="D 
ATA":POKE 34832,8C1:POKE 34835,0:M0 

DE 2:G0T0 130 

90 IF INKEY(14)C>-1 THEN format$-"S 

YSTEM":POKE 34832,841:POKE 34835,2: 
NODE 2 ELSE PRINT CHR$(7)::GOT0 70 
100 ? 

110 *#F# AFFICHAGE CATALOGUE #44 
120 ? 

130 CALL 34885:1F boucie=1 THEN 220 
140 CALL 34816:ad-32768:h=5:nfm=&FF 
150 FOR c=1 TO 4:FO0R ne=1 TO 16:L0C 

ATE h-LEN(STR$(nun)),3+ne:PRINT nus 
5" *::1F PEEK(ad)=LES THEN eff-1:PR 
INT CHR$(&18) ; 

160 ad=adti:FOR 1=1 TO 11:PRINT CHR 
$(PEEK(ad));:1F 1=8 THEN PRINT"."; 
170 ad=ad+i:NEXT:PRINT 

180 IF eff=1 THEN PRINT CHR$(&18) ; : 
eff:0 

190 ad=ad+t20:nua-nua+t1:NEXT:h=h+20: 

NEXT 

200 LOCATE 19,21:PRINT"(LES FICHIER 
S EFFACES SONT EN VIDEO INVERSE)" 
210 LOCATE 19,2:PRINT"TAPEZ LE NUME 
RO CORRESPONDANT A VOTRE CHOI1" 

220 IF nfa=&FF THEN 230 ELSE LOCATE 
7+INT(nfn/16)#20,4+nfa HOD 16:FOR 
i=1 TO 12:CALL &BBB8A:PRINT CHR$ (9); 
:NElT'rectification du fichier nmodi 

til 

230 WINDOW 66, 74,2,2: INPUT "",nus:| 

F nua)63 OR nun<O THEN PRINT CHR$(7 
):G0T0 220 

240 nf$="":CLS:WINDOW 1,80,1,25:af= 


)DF 
>ZH 


>FC 








32768+(nua#32):1F PEEK(af)-LES THEN 
nf$=CHR$(&KIB):eff=1 

250 POKE 34952, INT((af+16)/256) :POK 

E 34951,af+16-256*#INT((af+16)/256) 

260 FOR i-1 TO {1:af-af+i:nf$=nf$+C 

HR$(PEEK(af)):1F i=8 THEN nf$=nf$+" 
L] 

270 NEXT:IF eff=1 THEN nf$=nf$+CHR$ 
(&18):eff-0 

280 LOCATE 20,24:PRINT"FICHIER ";nu 

a;" = "iNF$::CALL &BBIB:PRINT CHR$( 

k11) 

290 ? 

300 #44 AFFICHAGE PAR SECTEURS #44 
310 ? 

320 CALL 34888:1F boucle:1 THEN 370 

330 LOCATE 1,1:PRINT CHR$(&18);" 


{11 FICHIER [2] STATUT 
[31 DISQUE [4] IMPRIMER 
";CHR$(&18) 
340 LOCATE 2,7:PRINT"PISTES :0 


1234567890" ;CHRS (11) :"1":CHR$ (8) ; CHR 
#(10) ; "0123456789" ; CHR$(11);"2":CHR 
$(8) ;CHR$ (10) ;"0123456789" ;CHR$ (11) 
;"3";CHR# (8) ;CHR$ (10) ;"0123456789" 
360 PRINT:PRINT" SECTEURS  "::FOR 
A=1 TO 9:PRINT CHR$(8) :CHR$(B) :CHR 
#(8) ;A;CHR$ (10) ; :NEXT 

360 WINDOW 15,54,8,18:CLS:FOR i=0 T 

0 9:PRINT STRING$(40,CHR$ (RFF) ): :NE 
XT:WINDOW 1,80,1,25 

370 WINDOW 55,80,3,24:CLS:WINDOV 1, 

80,1,25 

380 LOCATE 58,3:PRINT"FORMAT : ":fo 
raat$:LOCATE 58,5:PRINT "FICHIER : 

"sNF$; 

390 af=32768+ (nut32) :LOCATE 58, 7:P 

RINT*USER : ";:1F PEEK(af)C> LES TH 

EN PRINT PEEK(af);" * ELSE PRINT" 

LA] 

400 IF PEEK(af+16)C&ES THEN ne-PEE 

K(af+15) ELSE ne-0 

410 LOCATE 57,9:PRINT ne;" ENREGIST 

REMENTS" :LOCATE 57,11:PRINT ne/4;" 

SECTEURS" | 

420 LOCATE 57,13:PRINT ne/8 " BLOCS 

":LOCATE 58,15:1F ne-0 THEN PRI 

NT"PAS DE HEADER" :GOTO 590 ELSE PRI 

NT'HEADER EN :" 

430 ns=((PEEK(af+16)#2)MOD 9)+1:L0C 

ATE 58,17:PRINT" # SECTEUR ":ns 

440 IF format$="SYSTEM" THEN ns=ns+ 


> k 440 ELSE ns=nst4C0 


À 


>QP 


DUT 


>TB 
>RD 
RE 
BJ 


ER 


>PC 


)YG 





# 450 POKE 35012,ns 


460 np=INT(PEEK(af+16)/4.5):1F fur 
at$="SYSTEM" THEN np=np+2 


470 WINDOW 1,55,18,25:CLS:WINDOW 1, 


80,1,25:sum-0 

480 LOCATE 58,19:PRINT" # PISTE ” 
snp:POKE 35015, np:CALL 34998" lectur 

e du header 

490 ? 

500 ‘#44 ANALYSE DU HEADER #41 

510 ? 

520 FOR i-0 TO 65:sua=sustPEEK(3502 

G+i):NEXT:IF PEEK(35093) +2564PEEK(3 

5094) C>sun THEN LOCATE 58,22:PRINT" 

FICHIER ASCI1":GO0T0 590 

530 LOCATE 58,24:F0R i=0 TO 11:PRIN 

T CHR$S(PEEK(35026+i))::1F i=8 THEN 

PRINT".*; 

540 NEXT 

550 LOCATE 58,22:PRINT'TYPE : "::ft 
=PEEK(35044)AND &F:1F ft=0 THEN PRI 

NT'BASIC" ELSE IF ft:1 THEN PRINT"B 

ASIC PROTEGE" ELSE IF ft:2 THEN PRI 
NT'BINAIRE" 

560 LOCATE 11,19:PRINT'ADRESSE DE C 
HARGEMENT : ";PEEK(35047)+256#PEEK( 
35048) 

570 LOCATE 11,21:PRINT"LONGUEUR DU 
FICHIER  : ";PEEK(35050) +256#PEEK( 
35051) 

580 LOCATE 11,23:PRINT'ADRESSE DE L 
ANCENENT : ":;PEEK(35052)+2564PEEK( 
35053) 

590 IF boucle=1 THEN 730 

600 " 

610 *### AFFICHAGE SECTEURS OCCUPES 
Ht 

620 

630 IF format$="SYSTEM" THEN fa:2 E 
LSE fa-0 

640 FOR c=0 TO 63:at=32784+(c#32):] 
F PEEK(at-16)=&E5 THEN 690 ELSE FOR 
b=0 TO 15:nb=PEEK(at+b) 

650 IF nb=0 OR nb-&E5 THEN b=15:GO0T 
0 680 

660 py=((nb#2)HOD 9)+9:px=15+fmatINT 
(nb/4.5):LOCATE px,py:PRINT CHR$(&F 
E):1F -py=17 THEN py=9:px=px+1 ELSE 
py=pyt! 

670 LOCATE px,py:PRINT CHR$(&FE) 
680 NEXT 

690 NEXT 

700 ? 

710 "#84 AFF. 
444 

720 ? 


IMPLANTATION FICHIER 


>HÜ 


?ÉE 
HB 


FY 


v 


V 


ER 


>KE 


>BR 
>EK 
>FA 
>RH 
>RJ 


>RK 


730 FOR b-0 TO 15:nb-PEEK(af+16+b): 
IF nb=0 OR nb=&ES THEN b=15:G0T0 76 

0 ELSE px=15+fatINT(nb/4.5):py=((nb 
#2)MOD 9)+9:LOCATE pr,py:PRINT CHR$ 
(RFC); 

740 IF py:17 THEN py:9:px=pxt{ ELSE 
py=pyti 

750 LOCATE pr.py:PRINT CHR$(&FC) 

760 NEXT 

770 

780 *HHt AFF. SECTEURS REAFFECTES 4 
tt 

790 ? 

800 etat:PEEK(af):1F etat(>£ES THEN 
860° fichier pas effac{ donc'pas d 
e pb. 

810 POKE af,&ES:CALL 34910:FOR b-0 
TO 1S:nb=PEEK(34894+b):1F nb-=0 DR n 
b=4E5 THEN b=15:G0T0 850 

820 px=15+fatINT(nb/4.5):py={{(nb#2) 
MOD 9)+Q9:LOCATE px,py:PRINT CHR$(&F 
B); 

830 IF py=17 THEN py-9:px=pxt{ ELSE 
py=pytt 

840 LOCATE px,py:PRINT CHR$(&FB) 
850 NEXT 

860 POKE af,etat:CLEAR INPUT:CALL & 
BB18:boucle={:nfa=&FF 

870 ? 

880 *#8# MENU GENERAL ##4 

890 ? 

900 LOCATE 5,3:PRINT STRING$(50,8&20 
):1F INKEY(14)=-1 THEN 970 

910 IF ETAT ©&ES THEN LOCATE 5,3:P 
RINT'EFFACER LE FICHIER ";NF$;" 0 
IN ?" ELSE 940 

920 IF INKEY(46)€>-1 THEN 900 ELSE 
IF INKEY(34)=-1 THEN 920 

930 nfa=nua:POKE af,&E5S:nfa=nun:eta 
t=LES:GOT0 1060’effacesent fichier 
940 LOCATE 5,3:PRINT'RESTAURER LE F 
ICHIER ";NF$;" O/N ?" 

950 IF INKEY(46)(>-1 THEN 900 ELSE 
IF, INKEY(34)=-1 THEN 950 

960 POKE af,0:nfa=nus:etat=0:GOTO 1 
060'restaurer fichier 

970 IF INKEY(5)C>-1 THEN sct=PEEK(3 
4882)+256#PEEK (34883) :G0TO 1150’fin 
i pour cette disquette 

980 IF INKEY(20)=-1 THEN 1020 ? har 
dcopy 

990 POKE 35555,1:adresse=49312:FOR 
li:1 TO 26:POKE 35626, INT(adresse/2 
56):POKE 35625,adresse-256#INT(adre 
sse/256) :CALL 35594:1F PEEK(35555)= 
0 THEN 1020’ inpression stopp{e 


ND # 





1000 adresse-adresse+14336:1F adres 

se)65535 THEN adresse-adresse-16304 
1010 NEIT 

1020 IF INKEY(13)--{ THEN 900 

1030 ? 

1040 ‘#44 REMISE EN ETAT DE L'ECRAN 
CEE 

1050 ? 

1060 CALL &BBO3:LOCATE 5,3:PRINT ST 
RING$(50,820):1F etat-£ES THEN ch:& 

FF ELSE ch=&FE 

1070 FOR b-0 TO 15:nb=PEEK(af+16+b) 
:1F nb=0 THEN b=15:G0T0 1100 ELSE p 
x={5+fa+INT(nb/4.5):py=((nb#2)H0D 9 
)+9:LOCATE px,py:PRINT CHR$(ch) 
1080 IF py=17 THEN py=9:px=prti ELS 

E py=pyt1 

1090 LOCATE px,py:PRINT CHR$(ch) 
1100 NEIT:IF etat C&E5S THEN 130 
1110 FOR b-0 TO 15:nb-PEEK(34894+#b) 
:1F nb=0 OR NB-LES THEN b-15:G0T0 1 
140 ELSE px=15+tfatINT(nb/4.5):py={{ 
nb#2)MOD 9)+9:LOCATE px,py:PRINT CH 
R$(&FE) 

1120 IF py=17 THEN py=9:px=prti ELS 

E py=pyt1 

1130 LOCATE px,py:PRINT CHR$(&FE); 
1140 NEXT:GO0TO 130 

1150 CALL &BBO3:POKE 34838, 490 :POKE 
34863,490:CALL 34816:1F sct=PEEK(3 

4882)+256*PEEK(34883) THEN 1170 
1160 PRINT CHR$(7):MODE 1:LOCATE 9, 
10:PRINT®LA DISQUETTE À ETE CHANGEE 
":LOCATE 5,14:PRINT"RECTIFIEZ PUIS 

PRESSEZ UNE TOUCHE" :CALL &BB18:GOT0 
1150 

1170 POKE 34838,480:POKE 34863, &80: 

CALL 35538:MODE 1:LOCATE 9,12:PRINT 

*UNE AUTRE DISQUETTE O/N ?* 

1180 IF INKEY(46)<>-1 THEN CALL O0 E 

LSE 1F INKEY(34)=-1 THEN 1180 

1190 CLEAR:CALL &BB03:GO0T0 20 


DISCOVER-DAT 





D\E 


>KD 
>Vi 
»XG 
>Xh 
Del 
>LB 


>DB 


>MK 
>BU 


DL) 
ZA] 


>ME 


>DB 
>HV 
>LP 


)JY 


LV 


)FZ 


)1G 


10 CLS:sonne-0:adresse=34816:FOR i= >FF 


0 TO 206:READ a$:POKE adresseti,VAL 
("L*+a$):sonne=sonnetVAL("&"+a$) :NE 
1T 


20 IF somme (>18368 THEN PRINT"ERRE >DTU 


UR DANS LA PREMIERE PARTIE" :END 


30 FOR 1=35023 TO 35537:PO0KE 1,0:NE >DJ 


À 


* ÏT 


148:READ a$:POKE adresseti, VAL("&" 
+a$):sosne-sonnetVAL("&"+a$) :NEXT 


UR DANS LA DEUXIEME PARTIE" :END 


ETTE PUIS PRESSER UNE TOUCHE" 

70 CALL &BB18:SAVE"DISCOVER.BIN",B, 
| 34816,871 

80 END 

90 DATA 21,44,88, CD, D4, BC, 22, 3F 
100 DATA 88, 79, 32, 41,B8,06,04, 0E 
110 DATA C1,11,00, 00, 21,00, 80, C5 
120 DATA D5,E5,DF, 3F,88,E1, D1,C1 
130 DATA 24,24,0C, 10,F2,01, 00, 08 
140 DATA 21,00,00,E5,54,21, 00, 80 
150 DATA 5E,E3, 19,E3, 23,08, 78,B1 
160 DATA 20,F6,E1, 22,42, 88, C9, 00 
170 DATA 00,00, 00, 00,84, 3E, 40, 21 
180 DATA 3E,C0, CD, 08, BC, C9, 00,00 
190 DATA 00,00, 00, 00, 00, 00, 00, 00 
200 DATA 00,00, 00, 00,00, 00, 21,4E 
210 DATA 88,06,10,36, 00, 23, 10,FB 
220 DATA DD, 21,4E,88, 21, 00, 80, 06 
230 DATA 40,C5,E5,7E,FE,ES, 20, 09 
240 DATA E1,01,20,00,09,C1,10,F1 
250 DATA C9,11,10,00,4B,19,11,00 
260 DATA 00,06, 10, 1A,B7,28,E9,E5 
270 DATA 1A,BE, 20,14,E5,C5,06, 10 
280 DATA 21,4E, 88, BE, 28,08, 23, 10 
290 DATA FA, DD, 77,00,DD, 23, C1,E1 
300 DATA 7E,B7, 28,03, 23, 10,E1,E1 
310 DATA 13,0D,20,D5, 18, C2, 21, 44 
320 DATA 88,CD,D4,BC, 22, CF, 88, 79 
330 DATA 32,D1,88,0E,00, 11,00, 00 
340 DATA 21,D2,88,DF,CF, 88, C9 
350 DATA 21,E2, 8A,CD,D4, BC, 22, 3F 
360 DATA 88, 79,32, 41,88, C3, 0D,88 
370 DATA 85,00, C5,F5, CD, 2E, ED, 38 
380 DATA 07,F1,CD,31,BD,37,C1, C9 
390 DATA 3E, 42, CD, {E, BB, 28, ED, CD 
400 DATA 03,BB, CD, 18,BB,FE, FC, 20 
410 DATA E3,F1, C1, AF, 32, E3, BA, C9 
420 DATA 3E, 1B,CD,E4,8A, DO, 3E, 2A 
430 DATA CD,E4, 84, D0,3E, 04, CD, E4 
440 DATA 8A,D0,3E, 78,CD, E4, BA, DO 
450 DATA 3E,02, CD, E4, 8A, DO, 21,00 
460 DATA 00,06, 4F,C5,0E,08,E5, 06 
470 DATA 07,AF,CB,06,17,F5,C5,CD 
480 DATA 26,BC,C1,F1,10,F4,CD,E4 
490 DATA BA,E1,38,02,C1,C9, 0D, 20 
500 DATA E5,23, C1, 10,DE, 3E, 1B,CD 
510 DATA E4, 84, D0,3E, 4A, CD, E4, BA 
520 DATA D0,3E, 14, CD,E4, 8, DO, 3E 
530 DATA OD, CD, E4, BA, C9 





40 sonne-0:adresse-356538:FOR i=0 TO >YG 


50 IF sonme (20222 THEN PRINT"ERRE )TZ 


60 PRINT"DATA OK : METTRE UNE DISQU >UH 


>NQ 


>LH 
YYE 
)YH 
>XH 
>ZU 
JA 
>1C 
YYV 
>YH 
>XZ 
>YN 
)XE 
)1B 
>XG 
»Yz 
)YR 
>YB 





Valable POU" 
MCPC 464 


l'est difficile de taper un programme d'une revue 
sans commettre d'erreurs | Quand les erreurs sont 
signalées (Syntax error in., Lines does not exist in..), 
la correction est facile puisque la ligne est indiquée, mais 
lorsqu'au “point de vue” du CPC, le programme est cor- 
rect,il peut en être tout autrement pour le lecteur. 
Sile fonctionnement du programme ne correspond pas 
vraiment au programme original, alors il est impossible 
de retrouver l'erreur commise, à moins de comparer les 
lignes de votre programme avec celles du journal, mais 
c'est très long et on risque de passer sur Une erreur sans 
la voir. 
C'est pourquoi ce programme a été créé: il est à utiliser 
si vous ne retrouvez pas Vos erreurs. 
La frappe d’un programme de votre journal favori (CPC) 
terminée, vous faites “RUN” et là, vous corrigez toutes 
les erreurs signalées par le CPC en vous référant au jour- 
nal pour comparer. Si malgré cela. il ne tourne toujours 
pas, suivez cette procédure : 
- Sauvez votre programme en ASCII grâce à l'instruction 
: Save “nom prog”, À. 
Puis, si vous êtes sur K7, rembobinez la bande jusqu'au 
début du fichier: 
- Chargez Anti-Erreurs: 
- entrez le nom de votre programme et insérez le sup- 
port où il se trouve (K7 ou disquette). 
Après quelques secondes, les numéros de ligne vont 
défiler. Vous remarquerez qu'à chaque ligne correspond 
un code de 2 lettres sous cette forme : >XX : c'est le code 
qui va vous permettre de savoir d'où proviennent les 
erreurs. Pour cela, Il faut que vous comparez les codes 
du journal à ceux de l'écran. Si un code diffère, notez 
sur papier le numéro de ligne qui correspond à ce code. 
Continuez ainsi Jusqu'à la fin du listage. Le défilement 
temminé, recherchez votre programme et corigez les lignes 
que vous avez notées en comparant avec le journal. 
Faites RUN” et, 6 miracle |, ça marche. 
Attention, lors de la frappe du programme à traîter, 
n'omettez aucun caractère car Anti-Erreurs les prend en 
compte et bien sûr, ne tapez pas les codes de contrôle. 









OL LL EEE LS EE ET ETES ES ESS SE CIS 
24 © # # 
39 ‘ +* ANTI - ERREURS Li 
49 © # ER 
90 ‘ + VERSION 2.9 # 
6 ‘ # # 
DORE: 21 LEE ES TETE SES ET ST ETES 


99 ‘ (c) CFC à G. NDE 1987 


— 
+ 
= 
Ps. 





170 MODE 2 

18û DIM G$(23) 

196 FOR 1=6 TO 22:READ G$:G$(1)=G$:NEXT 

296 “ATTENTION LA LIGNE DE DATA CI-DESSOUS NE CONTIENT 
PAS TOUTES LES LETTRES DE L'ALPHABET !!! 


YVNVNNNNNNNNNNNNNYY 


220 ‘ ANTI-BUG FICHIER 
230 IF PEEK(HIMEM+1)=255 THEN 280 

D 249 OPENOUT "CPC" 

D 250 MEMORY HIMEM-2 

> 260 CLOSEOUT 

. 270 FOKE HIMEM+1,255 








?LA 
LE 
LC 
:LD 
:LE 
#LF 
LG 
#LH 
#LJ 
:RB 
RC 
RL 
RE 
ëRF 
RG 
»0D 
>HH 
:6D 
FR 
?RC 

















286 DEFINT E-7 #HH 
296 TB 
36% BORDER 6: INK G,1:INK 1,16: PEN 1:FAFER 6 #JN 
316 MOVE 6,16:DRAW 654, 18 ?TE 
329 PRINT TAB(27) "ANTI-ERREURS ":CHR$(f4 :GU 
}; "Version 2,9":CHR$(24) 
336 MOVE 6,385: DRAN 659,385 #0] 
346 LOCATE 24,25:FRINT'CPC REVUE DES STANDARDS AMSTRAD" :EV 
356 WINDOW 1,6,3,33 2NL 
360 M$="Realise par Gregory NÜE" #HJ 
376 F$="" KA 
38% FOR 1=i TÜ LEN(MS) FU 
394 F=F+MIDS (ME, I. li #FL 
40û LOCATE 70-I,5:PRINT F$ zUL 
416 FOR T=1 TO 196 LA 
429 NEXT TI EF 
430 ‘ ?RH 
440 HHMEMEPEMNNENNPEPPNPENEENT >RJ 
450 RE 
4bÿ LOCATE 2,1:PRINT'ENTREZ LE NOM DU FICHIER : "à: #XT 
479 INPUT "QNFS FD 
486 IF NF$="" THEN PRINT CHR$(7):60T0 4ét 36R 
498 LOCATE Z,3:FPRINT"IMPRIMANTE QU ECRAN (1/E) 5" #VR 
900 R$= "US MHILE R$=" "4: R$=UPFERS (INEEYS$) : HEND 2NK 
914 IF R$="I" THEN CA=B:PRINT'BRANCHEZ-LA.., ELSE 549 XD 
20 PRINT#8,CHR$ (27) sl" CHR$ (26) AR 
J39 GOTO 566 ?1F 
940 IF R$="E" THEN CA=G:GDTD 56û +YQ 
996 GOTO 566 ?1B 
368 CLS:LOCATE 2,3:FRINT'TANT QUE LE LISTAGE N'EST FAS GR 
TERMINE" | 
974 LOCATE 2,5:PRINT'NE PAS ARRETER LE MAGNETOFHONE OÙ >JH 
NE" 
980 LOCATE 2,7:FRINT'FAG SORTIR LA DISQUETTE" #TL 
999 LOCATE 2,16:PRINT"PRESSEZ UNE TOUCHE FOUR LA LECTUR >HH 
E" 
669 CALL &BB65 LH 
&i6 RH 
BAD 7 LESECECEL EEE EEE SE ELLE 3RJ 
63% ‘€ TRAITEMENT DU FICHIER > 3RK 
648 © 23)» ?TA 
65ù ‘ ?TB 
b6à OPENIN "!"+NF$ èLF 
670 CLS:PRINT'TRAITEMENT EN COURS..." >JR 
689 IF LEN(A$)=255 THEN A$="":LINE INPUTH9,B$:G0TO 1166 >YH 
699 LINE INPUTH9,H$:A$=B$ UE 
700 IF CA&?8 THEN GOSUB 1319 èVF 
719 IF INKEY(66)=à THEN STOP ?WN 
720 2RK 
78 CALCUL DE LA CLE DE CONTROLE ?TA 
74 TB 
759 A=b:FLG=6 MB 
760 FÜR 1=1 TO LEN(A$) >PH 
776 LS=MIDS (AS, 1,1) >MU 
780 IF L$=CHR$(34) AND FLG=1 THEN FLG=0:G60T0 840 PC 
790 IF L$=CHR$(34) AND FLG=0 THEN FLG=1:G60T0 849 FD 





RARE IE EE ELLES EREX 




















860 IF L$=CHR$(32) AND FLO? THEN 850 
819 IF L$=CHR$(39) AND FLG=0 THEN 8éÿ 
820 IF FLG=1 THEN B4û 


826 L$=UPFERS (L$) 

840 A=A+ASC (L$)+I e 

856 NEXT I 

> (æur 
e 


874 CH$=STRS (A) 

886 CH$=RIGHT$ (CH$, LEN(CH$)-1) 
899 LELEN(CHS#) : L'£=LEN(CH$) /2 
960 A=VAL(LEFTS(CH$,L2)) 

916 C=INT(A/23 

920 F=A-(C#27) 

939 C$=G$(P) 

949 A=VAL (RIGHTS (CH, L-L2) ) 
959 C=INT(A/23) :P=A- (433) 

96ù C$=C$+6$(F) 

979 

989 FÜR I=i TD 6 

999 L$=MID$(A$, 1,1) 

1609 IF L$<"4" OR L$>"9" THEN 1936 

1919 LIS$=LI$+L4 

1926 NEXT 

1939 VM£=" "FOR I=1 TD LEN(AS): IF ASC (MIDS (AS, L, 1) )€32 
THEN VM$=VMS+"  ELSE VM$=VM#+MIDS (AS, I, 1) 

1949 NEXT I:B$=VM$ 

1859 

1969.IF CA&>B THEN 1474 ELSE 1994 

1970 FRINT LI$:TAB(16) ">":C$ 

1989 LI$="":60TO 1160 

1999 LI$="":FRINTACA, LEFTS(B$,99) : TAB(97) ">":C$ 

1199 IF LEN(B$)€55 THEN 1166 

1110 FG=1 

1120 E$=MID$ (B$, 56, LEN(B$) ) 

1130 PRINTHCA,LEFTS (B$, 55) 

1149 IF FG=i AND CA£:B THEN FG6=0:G60SUB 1319:G60T0 1154 
1150 GOTD 1166 

1165 IF EOF=-1 THEN CLOSEIN ELSE GOTO 68 

1176 IF CA=6 THEN CALL &BBG3:PRINT TAB(5) CHR$ (24) ; "UN 
E TOUCHE... ";CHR$ (24) :CALL &HBOS 

1186 CLS:FRINT'MAINTENANT RECHARGEZ "iNF$;" ET CORRIGEZ 
LES LIGNES QUE VOUS AVEZ NOTEES. ." | 
1196 END 

1200 ‘ 
1219 
1220 ‘< TRAITEMENTS DES ERREURS } 

1239  CKCELCELE CEE CLELELLELELEE 

1249 ” 

1250 IF ERR=25 THEN CLS:PRINT CHR$(7) :CHR$ (24) : "FICHIER 
NON ASCII"; CHR$ (24) :END ELSE CONT 

1269 
1270 
1286 ‘< 
1299 ‘ 
1300 ” 
1319 COM=COM+i:IF COM>19 THEN CALL &BBOS:PRINT TAB (50) 
“UNE TOUCHE... ":CALL &BB05:CLS:CDM=1 

1320 RETURN 





ATTENTE TOUCHE... . ? 
LRALLELLELELEELLEEEEELEE 








?CX 
CA 
END 
MC 
LU 
PE 
TE 
CC 
2YC 
#XÀ 
TY 
AH 
AU 
2XC 
WH 
UT 
TD 
TG 
WE 
2MY 
#X] 
XF 
KE 
#EK 


MH 
3XJ 
AT 
SW 
ND 
#QM 
UT 
CG 
UB 
VW 
VE 
LG 
HD 
#RJ 


JC 


2YK 
#XF 
?XG 
+XH 
2XJ 
>XK 
2YC 


3YB 
NC 
?YD 
)ŸE 
>\G 
AF 


EKÔ 


INFORMATIQUE 
COMMUNICATION 


DIALOGUE 


Savoir comment nous joindre, les sommaires, les 
infos. 


Css) 


Une nouvelle façon de poserles questions et de 
voir les réponses faites ! 


IEEE 


C'est en moyenne ce que vous trouvez sur le 
serveur. De quoi faire votre choix ! 


Une manière de correspondre entre vous où de 
nous laisser des messages. Nos BAL : SORACOM 


- ARCADES - AMSTAR - PCOMPATIBLES - MEGA- 
HERTZ - CPC REDACT - ASTROLOGIE PRATIQUE 








En direct, vos questions, vos idées et suggestions 


HET | 


Certains revendeur français disposent d'un accès 
gratuit pour leurs promotions 


ET ESe 7 


La rubrique sur nos productions avec la possi- 
bilité de commander 


CE) 


Désormais vous trouverez sur le serveur les 
nouveautés diffusées par cette société 


HET 


L'horoscope 1988 mais aussi depuis peu le men- 
suel du 15 au 15 du mois 


Au téléphone, 15 minutes coûtent en moyenne 55 francs 
Par minitel, Il vous en coûte pour ls même temps 15 francs 





ACTION SERVI E, À 320 
MEURTRE A VENISE 


COMMENT TAPER LES OURS 2UETTITNTT 2 UE PEL 


Entièrement dédié à Am- 
Strad. Pour les passionnés. 


TRE 50 MHz 


| DE LA SEMAINE : 


à | 


Et 
cro-informatique toutes 
machines, 


® 


M 





Oans 


ET Rs & 


sY 


(1) 


ture) Communication ama- 
teur avec ses nombreuses 
applications. Le seul men- 
Suel de ce créneau vendu 
en kiosque. 


£ |} 


27 4 


7 
Ce 


\ 


NW oQ 


” 
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Chez votre marchand 
de journaux habituel 


2e 
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